74 lines
1.7 KiB
Plaintext
74 lines
1.7 KiB
Plaintext
; 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))
|