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

Finished seventh koan

Browse source
This commit is contained in:
Matt Davidson 2022-11-04 23:35:58 +00:00
parent acdfdcd424
commit 4fe05a81dc
1 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/koans/07_functions.clj
View file

@ -8,33 +8,32 @@
(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 [f] (f 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)))