filter
익명함수
(filter #(zero? (rem % 3)) numbers) ; (3 6 9)
(defn my-filter [f coll] (loop [result [] [item & remain] coll] (if (seq remain) (recur (if (f item) (conj result item) result) remain) result))) (my-filter odd? [1 2 3 4 5]) ;;=> [1 3]
open:filter
(filter #(zero? (rem % 3)) numbers) ; (3 6 9)
(defn my-filter [f coll] (loop [result [] [item & remain] coll] (if (seq remain) (recur (if (f item) (conj result item) result) remain) result))) (my-filter odd? [1 2 3 4 5]) ;;=> [1 3]