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

Solve creating functions

Browse source
This commit is contained in:
Kenneth Kostresevic 2021-12-16 14:30:34 +01:00
parent a9c22921a5
commit ddf1d2439d
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/koans/13_creating_functions.clj
View file

@ -5,31 +5,31 @@
(meditations
"One may know what they seek by knowing what they do not seek"
(= [__ __ __] (let [not-a-symbol? (complement symbol?)]
(= [true false true] (let [not-a-symbol? (complement symbol?)]
(map not-a-symbol? [:a 'b "c"])))
"Praise and 'complement' may help you separate the wheat from the chaff"
(= [:wheat "wheat" 'wheat]
(let [not-nil? ___]
(let [not-nil? (complement nil?)]
(filter not-nil? [nil :wheat nil "wheat" nil 'wheat nil])))
"Partial functions allow procrastination"
(= 20 (let [multiply-by-5 (partial * 5)]
(___ __)))
(reduce multiply-by-5 2 '(2))))
"Don't forget: first things first"
(= [__ __ __ __]
(= [:a :b :c :d]
(let [ab-adder (partial concat [:a :b])]
(ab-adder [__ __])))
(ab-adder [:c :d])))
"Functions can join forces as one 'composed' function"
(= 25 (let [inc-and-square (comp square inc)]
(inc-and-square __)))
(inc-and-square 4)))
"Have a go on a double dec-er"
(= __ (let [double-dec (comp dec dec)]
(= 8 (let [double-dec (comp dec dec)]
(double-dec 10)))
"Be careful about the order in which you mix your functions"
(= 99 (let [square-and-dec ___]
(= 99 (let [square-and-dec (comp dec square)]
(square-and-dec 10))))