Bohtvaroh

Blogger - CRWFPM - composite reducef

Dec 25th, 2012
187
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (fn [result input]
  2.   (if (not-rotten? input)
  3.     ((fn [result' input']
  4.        ((fn [result'' input'']
  5.           (reduce add-to-pie result'' (chop input'')))
  6.         result' (remove-sticker input')))
  7.      result input)
  8.     result))
Advertisement
Add Comment
Please, Sign In to add comment