Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *Main> take 30 $ fix (foldl (.) id [takeWhile (<3),const [1..]] << 0)
- [1,2]
- *Main> take 30 $ fix (foldl (.) id [const [1..],takeWhile (<3)] << 0)
- [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement