clojure.clj

; Test file, released under MIT License
(ns ^{:doc "Syntax highlighting test file"
 :author "Markus Brenneis"}
 highlighting)
(defn something-else [f xs]
 #_(map #(apply f (% [%])) (cons 1 xs))
 (map #(apply f (% xs)) (cons 1 xs))
 #_[1 '(2)]
 xs)
(def foo [\a \b \n \ucafe \o123 \n
 \newline \tab \space \formfeed \backspace])
(def fizz {#{\a \b}
 #{\n \newline}})
(def fizz' #{{\a \b}
 {\n \newline}})
(defn bar [xs]
 (as-> xs <>
 (cons :a <>)
 (map #(%1 %2) <>) ; TODO improve
 (into <> [:konjure.logic.specs/numShips])))
(def x-2-y
 #_"do \" sth"
 (domonad set-m
 [x #{1.1, (+ -2 +4)}
 y #{1.1, (- -2.0 4.0)}]
 (*' x y)))
(def bases
 (and (= -1 -1N)
 (= 1/4 -2.5e-1)
 (= -1/2 -0.5M)
 (= -0x1Ab -0X1ab)
 (= +2r101010 25R1h)
 (= 39r13 42R10))) ; FIXME this one is not correct
(def^{:private true}
 (= (last #{#{}}) #{{#{}}}))
(def s "#repl\n")
(def r #"repl")
(defn- stuff!
 [a]
 "This is no \"documentation\"!"
 (= (class #'+) (class #'foo))
 (let [+ -] [(+ a 1) (@#'+ a 1)]))
(defn- throwIllegalArgumentException!
 "Throws an \"IllegalArgumentException\" or
 a js/Error."
 [message]
 #?(:clj (throw (IllegalArgumentException. message))
 :cljs (throw (js/Error. message))))
(defmacro let-fn "a nonsense macro" [one-binding & body]
 `(+ 1 ~(inc' 1))
 (let [[identifier & fn-body] one-binding]
 `(let [~identifier (fn ~identifier ~@fn-body)]
 ~@body `a#)))
(def state (atom [(= false true) nil]))
(defn something-cool [] (first @state))
(defn- something-different [] (first (into @state [12])))
(defn- instance-getfield [this k] (@(.state this) k))