You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
200 lines
6.4 KiB
Clojure
200 lines
6.4 KiB
Clojure
[["equalities" {"__" [true
|
|
2
|
|
7
|
|
5
|
|
4/2
|
|
false
|
|
6/3
|
|
3]}]
|
|
|
|
["lists" {"__" [1 2 3 4 5
|
|
1
|
|
[2 3 4 5]
|
|
()
|
|
[:a :b :c :d :e]
|
|
[0 :a :b :c :d :e]
|
|
:a
|
|
[:b :c :d :e]
|
|
"No dice!"
|
|
()]}]
|
|
|
|
["vectors" {"__" [1
|
|
[]
|
|
[1]
|
|
[nil]
|
|
2
|
|
[333]
|
|
:peanut
|
|
:jelly
|
|
:jelly
|
|
[:butter :and]
|
|
3]}]
|
|
|
|
["sets" {"__" [nil
|
|
3
|
|
#{1 2 3 4 5}
|
|
#{1 2 3 4 5}
|
|
#{2 3}
|
|
#{1 4}]}]
|
|
|
|
["maps" {"__" [{}
|
|
0
|
|
1
|
|
2
|
|
2
|
|
1
|
|
1
|
|
"Vancouver"
|
|
nil
|
|
:key-not-found
|
|
true
|
|
false
|
|
"February"
|
|
1 "January"
|
|
2006 2010 2014
|
|
"Vancouver"]}]
|
|
|
|
["functions" {"__" [20
|
|
10 5
|
|
30 2
|
|
15
|
|
20 *]
|
|
"___" [(fn [f] (f 5))
|
|
(fn [f] (f 5))]}]
|
|
|
|
["conditionals" {"__" [:a
|
|
[]
|
|
nil
|
|
:glory
|
|
4 6 :your-road
|
|
'doom 0
|
|
:cocked-pistol
|
|
:say-what?]}]
|
|
|
|
["higher_order_functions" {"__" [4 8 12
|
|
(* x x)
|
|
[false false true false false]
|
|
()
|
|
[:anything :goes :here]
|
|
(< x 31)
|
|
(* 10 x) (< x 4)
|
|
24
|
|
100
|
|
(count a) (count b)]}]
|
|
|
|
["runtime_polymorphism" {"__" [(str (:name a) " eats veggies.")
|
|
(str (:name a) " eats animals.")
|
|
(str "I don't know what " (:name a) " eats.")
|
|
"Hello World!"
|
|
"Hello, you silly world."
|
|
"Hello to this group: Peter, Paul, Mary!" ]}]
|
|
|
|
["lazy_sequences" {"__" [[1 2 3 4]
|
|
[0 1 2 3 4]
|
|
10
|
|
95
|
|
(range 20)
|
|
:a]
|
|
"___" [(fn [x] :foo)]}]
|
|
|
|
["sequence_comprehensions" {"__" [[0 1 2 3 4 5]
|
|
(* index index)
|
|
(range 10)
|
|
(odd? index) (* index index)
|
|
[row column]
|
|
]}]
|
|
|
|
["creating_functions" {"__" [true false true
|
|
4
|
|
:a :b :c :d
|
|
:c :d
|
|
4
|
|
8]
|
|
"___" [(complement nil?)
|
|
multiply-by-5
|
|
(comp dec square)]}]
|
|
|
|
["recursion" {"__" [true
|
|
acc
|
|
(loop [coll coll
|
|
acc ()]
|
|
(if (seq coll)
|
|
(recur (rest coll) (conj acc (first coll)))
|
|
acc))
|
|
(loop [n n
|
|
acc 1]
|
|
(if (zero? n)
|
|
acc
|
|
(recur (dec n) (* acc n))))]
|
|
"___" [not]}]
|
|
|
|
["destructuring" {"__" [":bar:foo"
|
|
(format (str "First comes %s, "
|
|
"then comes %s, "
|
|
"then comes %s with the baby carriage")
|
|
a b c)
|
|
(apply str
|
|
(interpose " "
|
|
(apply list
|
|
first-name
|
|
last-name
|
|
(interleave (repeat "aka") aliases))))
|
|
{:original-parts full-name
|
|
:named-parts {:first first-name :last last-name}}
|
|
(str street-address ", " city ", " state)
|
|
city state
|
|
(str street-address ", " city ", " state)]
|
|
"___" [(fn [[fname lname]
|
|
{:keys [street-address city state]}]
|
|
(str fname " " lname ", "
|
|
street-address ", " city ", " state))
|
|
]}]
|
|
|
|
["refs" {"__" ["hello"
|
|
"hello"
|
|
"better"
|
|
"better!!!"
|
|
(dosync (ref-set the-world 0))
|
|
(map :jerry [@the-world @bizarro-world])
|
|
]
|
|
"___" [(fn [x] (+ 20 x))]}]
|
|
|
|
["atoms" {"__" [0
|
|
1
|
|
(swap! atomic-clock (partial + 4))
|
|
20
|
|
20
|
|
atomic-clock 20 :fin
|
|
]}]
|
|
|
|
["macros" {"__" [~(first form)
|
|
~(nth form 2)
|
|
form
|
|
(drop 2 form)
|
|
"Hello, Macros!"
|
|
10
|
|
'(+ 9 1)
|
|
'(* 10 2)
|
|
'(+ 10 (2 * 3))]}]
|
|
|
|
["datatypes" {"__" [(print
|
|
(str "You're really the "
|
|
(.category this)
|
|
", " recipient "... sorry."))
|
|
"peace"
|
|
"literature"
|
|
"physics"
|
|
nil
|
|
[true false]
|
|
(str "Congratulations on your Best Picture Oscar, "
|
|
"Evil Alien Conquerors!")]}]
|
|
|
|
["java_interop" {"__" [java.lang.String
|
|
"SELECT * FROM"
|
|
10
|
|
1024
|
|
]
|
|
"___" [#(.toUpperCase %)
|
|
]
|
|
}]]
|