|
ToDo:
|
ちょっと落ち着いてきたので頭の体操。
(apply + (filter #(or (zero? (mod % 3)) (zero? (mod % 5)))(range 1 1000)))
(apply + (take-while #(< % 4000000 )(filter even? (map first (iterate (fn [[a b]] [b (+ a b)]) [0N 1N])))))
読了した。面白く読めました。このシリーズは肩の力を抜いて楽しく読めます。長編はあと1冊残っているようですね。