autotests/folding/clojure.clj.fold

0001 ; Test file, released under MIT License
0002 (ns ^{:doc "Syntax highlighting test file"
0003       :author "Markus Brenneis"}
0004     highlighting)
0005
0006 (defn something-else [f xs]
0007   #_(map #(apply f (% [%])) (cons 1 xs))
0008   (map #(apply f (% xs)) (cons 1 xs))
0009   #_[1 '(2)]
0010   xs)
0011
0012 (def foo [\a \b \n \ucafe \o123 \n
0013           \newline \tab \space \formfeed \backspace])
0014
0015 (def fizz {#{\a \b}
0016            #{\n \newline}})
0017
0018 (def fizz' #{{\a \b}
0019              {\n \newline}})
0020
0021 (defn bar [xs]
0022   (as-> xs <>
0023         (cons :a <>)
0024         (map #(%1 %2) <>) ; TODO improve
0025         (into <> [:konjure.logic.specs/numShips])))
0026
0027 (def x-2-y
0028   #_"do \" sth"
0029   (domonad set-m
0030     [x #{1.1, (+ -2 +4)}
0031      y #{1.1, (- -2.0 4.0)}]
0032     (*' x y)))
0033
0034 (def bases
0035   (and (= -1 -1N)
0036        (= 1/4 -2.5e-1)
0037        (= -1/2 -0.5M)
0038        (= -0x1Ab -0X1ab)
0039        (= +2r101010 25R1h)
0040        (= 39r13 42R10))) ; FIXME this one is not correct
0041
0042 (def ^{:private true}
0043   (= (last #{#{}}) #{{#{}}}))
0044
0045 (def s "#repl\n")
0046 (def r #"repl")
0047
0048 (defn- stuff!
0049   [a]
0050   "This is no \"documentation\"!"
0051   (= (class #'+) (class #'foo))
0052   (let [+ -] [(+ a 1) (@#'+ a 1)]))
0053
0054 (defn- throwIllegalArgumentException!
0055   "Throws an \"IllegalArgumentException\" or
0056   a js/Error."
0057   [message]
0058   #?(:clj  (throw (IllegalArgumentException. message))
0059      :cljs (throw (js/Error. message))))
0060
0061 (defmacro let-fn "a nonsense macro" [one-binding & body]
0062   `(+ 1 ~(inc' 1))
0063   (let [[identifier & fn-body] one-binding]
0064     `(let [~identifier (fn ~identifier ~@fn-body)]
0065       ~@body `a#)))
0066
0067 (def state (atom [(= false true) nil]))
0068
0069 (defn something-cool [] (first @state))
0070
0071 (defn- something-different [] (first (into @state [12])))
0072
0073 (defn- instance-getfield [this k] (@(.state this) k))