mbac fold-left implementation
a guest Oct 8th, 2011 124 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- (defn fold-left [f acc coll]
- (let [x (first coll)]
- (if (= x nil) acc
- (fold-left f (f acc x) (rest coll)))))
RAW Paste Data