АМ
(defn problem_2 []
(reduce + (filter even? (take-while (partial >= 4000000) fib))))
Size: a a a
АМ
(defn problem_2 []
(reduce + (filter even? (take-while (partial >= 4000000) fib))))
AR
AR
AR
(defn problem_2 []
(reduce + (filter even? (take-while (partial >= 4000000) fib))))
MG
(partial >= 4000000)
читается плохо, #(< % 4000000)
лучше, IMHO.MG
(def
n less-than? [n] (fn [x] (< x n)))
дажеАМ
(partial >= 4000000)
читается плохо, #(< % 4000000)
лучше, IMHO.MG
OR
(defn problem_2 []
(transduce (comp (filter even?) (take-while #(< % 4000000))) + fib))
АМ
(defn problem_2 []
(transduce (comp (filter even?) (take-while #(< % 4000000))) + fib))
AG
(take n (map first (iterate (fn [[x y]] [y (+ x y)]) [0 1]))))
G
(defn problem_2 []
(transduce (comp (filter even?) (take-while #(< % 4000000))) + fib))
AS
(take-while #(< % 4000000) fib)
и все(partial < 4000000)
чтоб вообще модно.AS
IG
IG
AR
AR
AR