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

Update 09_higher_order_functions.clj

Browse source
This commit is contained in:
Alex Gorelov 2018-03-15 16:59:15 +03:00 committed by GitHub
parent 126ae2e377
commit fba9e7f6b3
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/koans/09_higher_order_functions.clj
View file

@ -2,34 +2,34 @@
(:require [koan-engine.core :refer :all])) (:require [koan-engine.core :refer :all]))
(meditations (meditations
"The map function relates a sequence to another" "Создаём номую последовательность изменяя данную"
(= [__ __ __] (map (fn [x] (* 4 x)) [1 2 3])) (= [__ __ __] (map (fn [x] (* 4 x)) [1 2 3]))
"You may create that mapping" "Изменяйте, создаваю свои функции"
(= [1 4 9 16 25] (map (fn [x] __) [1 2 3 4 5])) (= [1 4 9 16 25] (map (fn [x] __) [1 2 3 4 5]))
"Or use the names of existing functions" "Или используйте существующие"
(= __ (map nil? [:a :b nil :c :d])) (= __ (map nil? [:a :b nil :c :d]))
"A filter can be strong" "Такой фильтр не пропустит ничего"
(= __ (filter (fn [x] false) '(:anything :goes :here))) (= __ (filter (fn [x] false) '(:anything :goes :here)))
"Or very weak" "А такой?"
(= __ (filter (fn [x] true) '(:anything :goes :here))) (= __ (filter (fn [x] true) '(:anything :goes :here)))
"Or somewhere in between" "Какой фильтр здесь?"
(= [10 20 30] (filter (fn [x] __) [10 20 30 40 50 60 70 80])) (= [10 20 30] (filter (fn [x] __) [10 20 30 40 50 60 70 80]))
"Maps and filters may be combined" "Сначала фильтруем, потом изменяем полученное"
(= [10 20 30] (map (fn [x] __) (filter (fn [x] __) [1 2 3 4 5 6 7 8]))) (= [10 20 30] (map (fn [x] __) (filter (fn [x] __) [1 2 3 4 5 6 7 8])))
"Reducing can increase the result" "Уменьшаем объём, увеличиваем значение"
(= __ (reduce (fn [a b] (* a b)) [1 2 3 4])) (= __ (reduce (fn [a b] (* a b)) [1 2 3 4]))
"You can start somewhere else" "Можно указать начальное значение"
(= 2400 (reduce (fn [a b] (* a b)) __ [1 2 3 4])) (= 2400 (reduce (fn [a b] (* a b)) __ [1 2 3 4]))
"Numbers are not the only things one can reduce" "Не только числа"
(= "longest" (reduce (fn [a b] (= "longest" (reduce (fn [a b]
(if (< __ __) b a)) (if (< __ __) b a))
["which" "word" "is" "longest"]))) ["which" "word" "is" "longest"])))