balkian/clojure-koans
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Standardize whitespace a bit more.

Browse Source
This commit is contained in:
Colin Jones 2011-02-13 19:53:25 -06:00
parent a395f47b86
commit ae28d1dd98
2 changed files with 50 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/koans/macros.clj
View File

@ -24,21 +24,21 @@
(meditations
"Macros are like functions created at compile time"
(= __ (hello "Macros!"))
"Macros are like functions created at compile time"
(= __ (hello "Macros!"))
"Can I haz some infix?"
(= __ (infix (9 + 1)))
"Can I haz some infix?"
(= __ (infix (9 + 1)))
"Remember, these are nothing but code transformations"
(= __ (macroexpand '(infix (9 + 1))))
"Remember, these are nothing but code transformations"
(= __ (macroexpand '(infix (9 + 1))))
"You can do better than that, hand crafting ftw!"
(= __ (macroexpand '(infix-better (10 * 2))))
"You can do better than that, hand crafting ftw!"
(= __ (macroexpand '(infix-better (10 * 2))))
"Things dont always work as you would like them to... "
(= __ (macroexpand '(infix-better ( 10 + (2 * 3)))))
"Things dont always work as you would like them to... "
(= __ (macroexpand '(infix-better ( 10 + (2 * 3)))))
"Really, you dont understand recursion until you understand recursion"
(= 36 (r-infix (10 + (2 * 3) + (4 * 5)))))
"Really, you dont understand recursion until you understand recursion"
(= 36 (r-infix (10 + (2 * 3) + (4 * 5)))))

64
src/path_to_answer_sheet.clj
View File

@ -11,6 +11,7 @@
false
6/3
3]}
"lists" {"__" [1 2 3 4 5
1
[2 3 4 5]
@ -21,6 +22,7 @@
[:b :c :d :e]
"No dice!"
()]}
"vectors" {"__" [1
[]
[1]
@ -32,11 +34,13 @@
:jelly
[:butter :and]
3]}
"sets" {"__" [3
#{1 2 3 4 5}
#{1 2 3 4 5}
#{2 3}
#{1 4}]}
"maps" {"__" [0
1
2
@ -52,6 +56,7 @@
1 "January"
2006 2010 2014
"Vancouver"]}
"functions" {"__" [20
10 5
30 2
@ -59,12 +64,14 @@
20 '*]
"___" ['(fn [f] (f 5))
'(fn [f] (f 5))]}
"conditionals" {"__" [:a
[]
0
:glory
4 6 :your_road
''doom 0 ]}
"higher_order_functions" {"__" [4 8 12
'(* x x)
[false false true false false]
@ -75,18 +82,21 @@
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!" ]}
"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
@ -96,23 +106,25 @@
"___" ['(complement nil?)
'multiply-by-5
'(comp dec square)]}
"recursion" {"__" [true '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))))
(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)
@ -132,27 +144,27 @@
"___" ['(comp exclamator exclamator exclamator)
'(fn [x] (+ 20 x))]}
"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]
"Congratulations on your Best Picture Oscar, Evil Alien Conquerors!"
]}
})
"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!")]}})
(defn replace-with [s k replacements]
(let [unreplaced-texts (split s (re-pattern (str "\\b" k "\\b")))]