luciano/clojure-koans
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

conditionals done

Browse source
This commit is contained in:
Oli Clive-Griffin 2021-06-03 14:24:26 +12:00
parent 0b3c97ce36
commit aa5f040409
2 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/koans/07_functions.clj
View file

@ -8,33 +8,33 @@
(meditations (meditations
"Calling a function is like giving it a hug with parentheses" "Calling a function is like giving it a hug with parentheses"
(= __ (square 9)) (= 81 (square 9))
"Functions are usually defined before they are used" "Functions are usually defined before they are used"
(= __ (multiply-by-ten 2)) (= 20 (multiply-by-ten 2))
"But they can also be defined inline" "But they can also be defined inline"
(= __ ((fn [n] (* 5 n)) 2)) (= 10 ((fn [n] (* 5 n)) 2))
"Or using an even shorter syntax" "Or using an even shorter syntax"
(= __ (#(* 15 %) 4)) (= 60 (#(* 15 %) 4))
"Even anonymous functions may take multiple arguments" "Even anonymous functions may take multiple arguments"
(= __ (#(+ %1 %2 %3) 4 5 6)) (= 15 (#(+ %1 %2 %3) 4 5 6))
"Arguments can also be skipped" "Arguments can also be skipped"
(= __ (#(str "AA" %2) "bb" "CC")) (= "AACC" (#(str "AA" %2) "bb" "CC"))
"One function can beget another" "One function can beget another"
(= 9 (((fn [] ___)) 4 5)) (= 9 (((fn [] +)) 4 5))
"Functions can also take other functions as input" "Functions can also take other functions as input"
(= 20 ((fn [f] (f 4 5)) (= 20 ((fn [can-be-called-anything] (can-be-called-anything 4 5)) * )
___)) )
"Higher-order functions take function arguments" "Higher-order functions take function arguments"
(= 25 (___ (= 25 ((fn [f] (f 5))
(fn [n] (* n n)))) (fn [n] (* n n))))
"But they are often better written using the names of functions" "But they are often better written using the names of functions"
(= 25 (___ square))) (= 25 ((fn [f] (f 5)) square)))

20
src/koans/08_conditionals.clj
View file

@ -10,38 +10,38 @@
(meditations (meditations
"You will face many decisions" "You will face many decisions"
(= __ (if (false? (= 4 5)) (= :a (if (false? (= 4 5))
:a :a
:b)) :b))
"Some of them leave you no alternative" "Some of them leave you no alternative"
(= __ (if (> 4 3) (= [] (if (> 4 3)
[])) []))
"And in such a situation you may have nothing" "And in such a situation you may have nothing"
(= __ (if (nil? 0) (= nil (if (nil? 0)
[:a :b :c])) [:a :b :c]))
"In others your alternative may be interesting" "In others your alternative may be interesting"
(= :glory (if (not (empty? ())) (= :glory (if (not (empty? ()))
:doom :doom
__)) :glory))
"You may have a multitude of possible paths" "You may have a multitude of possible paths"
(let [x 5] (let [x 5]
(= :your-road (cond (= x __) :road-not-taken (= :your-road (cond (= x 3) :road-not-taken
(= x __) :another-road-not-taken (= x 4) :another-road-not-taken
:else __))) :else :your-road)))
"Or your fate may be sealed" "Or your fate may be sealed"
(= 'doom (if-not (zero? __) (= 'doom (if-not (zero? 3)
'doom 'doom
'more-doom)) 'more-doom))
"In case of emergency, go fast" "In case of emergency, go fast"
(= "pretty fast" (= "pretty fast"
(explain-exercise-velocity __)) (explain-exercise-velocity :bicycling))
"But admit it when you don't know what to do" "But admit it when you don't know what to do"
(= __ (= "is that even exercise?"
(explain-exercise-velocity :watching-tv))) (explain-exercise-velocity :watching-tv)))