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

18
src/path_to_answer_sheet.clj
View File

@ -11,6 +11,7 @@
false false
6/3 6/3
3]} 3]}
"lists" {"__" [1 2 3 4 5 "lists" {"__" [1 2 3 4 5
1 1
[2 3 4 5] [2 3 4 5]
@ -21,6 +22,7 @@
[:b :c :d :e] [:b :c :d :e]
"No dice!" "No dice!"
()]} ()]}
"vectors" {"__" [1 "vectors" {"__" [1
[] []
[1] [1]
@ -32,11 +34,13 @@
:jelly :jelly
[:butter :and] [:butter :and]
3]} 3]}
"sets" {"__" [3 "sets" {"__" [3
#{1 2 3 4 5} #{1 2 3 4 5}
#{1 2 3 4 5} #{1 2 3 4 5}
#{2 3} #{2 3}
#{1 4}]} #{1 4}]}
"maps" {"__" [0 "maps" {"__" [0
1 1
2 2
@ -52,6 +56,7 @@
1 "January" 1 "January"
2006 2010 2014 2006 2010 2014
"Vancouver"]} "Vancouver"]}
"functions" {"__" [20 "functions" {"__" [20
10 5 10 5
30 2 30 2
@ -59,12 +64,14 @@
20 '*] 20 '*]
"___" ['(fn [f] (f 5)) "___" ['(fn [f] (f 5))
'(fn [f] (f 5))]} '(fn [f] (f 5))]}
"conditionals" {"__" [:a "conditionals" {"__" [:a
[] []
0 0
:glory :glory
4 6 :your_road 4 6 :your_road
''doom 0 ]} ''doom 0 ]}
"higher_order_functions" {"__" [4 8 12 "higher_order_functions" {"__" [4 8 12
'(* x x) '(* x x)
[false false true false false] [false false true false false]
@ -75,18 +82,21 @@
24 24
100 100
'(count a) '(count b)]} '(count a) '(count b)]}
"runtime_polymorphism" {"__" ['(str (:name a) " eats veggies.") "runtime_polymorphism" {"__" ['(str (:name a) " eats veggies.")
'(str (:name a) " eats animals.") '(str (:name a) " eats animals.")
'(str "I don't know what " (:name a) " eats.") '(str "I don't know what " (:name a) " eats.")
"Hello World!" "Hello World!"
"Hello, you silly world." "Hello, you silly world."
"Hello to this group: Peter, Paul, Mary!" ]} "Hello to this group: Peter, Paul, Mary!" ]}
"sequence_comprehensions" {"__" [[0 1 2 3 4 5] "sequence_comprehensions" {"__" [[0 1 2 3 4 5]
'(* index index) '(* index index)
'(range 10) '(range 10)
'(odd? index) '(* index index) '(odd? index) '(* index index)
'[row column] '[row column]
]} ]}
"creating_functions" {"__" [true false true "creating_functions" {"__" [true false true
4 4
:a :b :c :d :a :b :c :d
@ -96,12 +106,14 @@
"___" ['(complement nil?) "___" ['(complement nil?)
'multiply-by-5 'multiply-by-5
'(comp dec square)]} '(comp dec square)]}
"recursion" {"__" [true 'acc "recursion" {"__" [true 'acc
'(loop [n n acc 1] '(loop [n n acc 1]
(if (zero? n) (if (zero? n)
acc acc
(recur (dec n) (* acc n))))] (recur (dec n) (* acc n))))]
"___" ['not]} "___" ['not]}
"destructuring" {"__" [":bar:foo" "destructuring" {"__" [":bar:foo"
'(format (str "First comes %s, " '(format (str "First comes %s, "
"then comes %s, " "then comes %s, "
@ -141,6 +153,7 @@
''(+ 9 1) ''(+ 9 1)
''(* 10 2) ''(* 10 2)
''(+ 10 (2 * 3))]} ''(+ 10 (2 * 3))]}
"datatypes" {"__" ['(print "datatypes" {"__" ['(print
(str "You're really the " (str "You're really the "
(.category this) (.category this)
@ -150,9 +163,8 @@
"physics" "physics"
nil nil
[true false] [true false]
"Congratulations on your Best Picture Oscar, Evil Alien Conquerors!" (str "Congratulations on your Best Picture Oscar, "
]} "Evil Alien Conquerors!")]}})
})
(defn replace-with [s k replacements] (defn replace-with [s k replacements]
(let [unreplaced-texts (split s (re-pattern (str "\\b" k "\\b")))] (let [unreplaced-texts (split s (re-pattern (str "\\b" k "\\b")))]