Skip to content

Instantly share code, notes, and snippets.

@sznurek

sznurek/gist:3067476

Created July 7, 2012 18:05
Show Gist options
  • Save sznurek/3067476 to your computer and use it in GitHub Desktop.
Save sznurek/3067476 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
nfather :: Person -> Int -> Maybe Person
nfather p n = do
a <- father p
b <- father a
-- ... repeat n times
father xyz
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment