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.
126 lines
3.8 KiB
Clojure
126 lines
3.8 KiB
Clojure
(ns path-to-answer-sheet
|
|
(:use [path-to-enlightenment :exclude (run)]
|
|
[clojure.string :only (join split)]
|
|
clojure.test))
|
|
|
|
(def answers
|
|
{"equalities" {"__" [true
|
|
2
|
|
7
|
|
5
|
|
4/2
|
|
false
|
|
6/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]]}
|
|
"sets" {"__" [3
|
|
#{1 2 3 4 5}
|
|
#{1 2 3 4 5}
|
|
#{2 3}
|
|
#{1 4}]}
|
|
"maps" {"__" [0
|
|
1
|
|
2
|
|
2
|
|
1
|
|
1
|
|
"\"Vancouver\""
|
|
nil
|
|
true
|
|
false
|
|
"\"February\""
|
|
1 "\"January\""
|
|
2006 2010 2014
|
|
"\"Vancouver\""]}
|
|
"functions" {"__" [20
|
|
10 5
|
|
30 2
|
|
20 "*"]
|
|
"___" ["(fn [f] (f 5))"]}
|
|
"conditionals" {"__" [:a
|
|
[]
|
|
0
|
|
:glory
|
|
"'doom" 0 ]}
|
|
"higher_order_functions" {"__" [4 8 12
|
|
"(* x x)"
|
|
[false false true false false]
|
|
"()"
|
|
true
|
|
"(< 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!\"" ]}
|
|
"sequence_comprehensions" {"__" [[0 1 2 3 4 5]
|
|
"(* index index)"
|
|
"(range 10)"
|
|
"(odd? index)" "(* index index)"
|
|
"[row column]"
|
|
]}
|
|
"partial_functions" {"__" [4
|
|
:a :b :c :d
|
|
:c :d]
|
|
"___" ["multiply-by-5"]}
|
|
})
|
|
|
|
(defn replace-with [s k replacements]
|
|
(let [unreplaced-texts (split s (re-pattern (str "\\b" k "\\b")))]
|
|
(join
|
|
(butlast
|
|
(interleave
|
|
unreplaced-texts
|
|
(concat replacements (repeat k)))))))
|
|
|
|
(defn koan-text [koan]
|
|
(slurp (str "src/koans/" koan ".clj")))
|
|
|
|
(defn answers-for [koan sym]
|
|
((answers koan {}) sym []))
|
|
|
|
(defn fill-in-answers [text koan sym]
|
|
(replace-with text sym (answers-for koan sym)))
|
|
|
|
(defn run []
|
|
(try
|
|
(dorun
|
|
(map
|
|
(fn [koan]
|
|
(load-string
|
|
(-> (koan-text koan)
|
|
(fill-in-answers koan "__")
|
|
(fill-in-answers koan "___"))))
|
|
ordered-koans))
|
|
|
|
(println "\nThe answer key checks out!")
|
|
|
|
(catch Exception e
|
|
(println "\nAnswer sheet fail: " e)
|
|
(.printStackTrace e)
|
|
(println "Answer sheet fail"))))
|
|
|