Skip to content

Instantly share code, notes, and snippets.

@flazz

flazz/unfold.erl

Created February 8, 2012 21:47
Show Gist options
  • Save flazz/1774160 to your computer and use it in GitHub Desktop.
Save flazz/1774160 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
unfold.erl
unfold(Fun, Seed) ->
case Fun(Seed) of
{} -> [];
{X, NextSeed} -> [X | unfold(Fun, NextSeed)]
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment