This commit is contained in:
Michael Kohl 2011-01-03 23:12:39 +01:00
parent 4c74b1b50b
commit f4a5cd7cad

View File

@ -20,7 +20,7 @@
(let [ab-adder (partial concat [:a :b])] (let [ab-adder (partial concat [:a :b])]
(ab-adder [__ __]))) (ab-adder [__ __])))
"Functions can joins forces as one 'composed' function" "Functions can join forces as one 'composed' function"
(= 25 (let [inc-and-square (comp square inc)] (= 25 (let [inc-and-square (comp square inc)]
(inc-and-square __))) (inc-and-square __)))
@ -28,7 +28,7 @@
(= __ (let [double-dec (comp dec dec)] (= __ (let [double-dec (comp dec dec)]
(double-dec 10))) (double-dec 10)))
"Be careful the order in which you mix your functions" "Be careful about the order in which you mix your functions"
(= 99 (let [square-and-dec ___] (= 99 (let [square-and-dec ___]
(square-and-dec 10)))) (square-and-dec 10))))