Skip to content

Instantly share code, notes, and snippets.

@spencerwi

spencerwi/gist:6476279

Created September 7, 2013 15:00
Show Gist options
  • Save spencerwi/6476279 to your computer and use it in GitHub Desktop.
Save spencerwi/6476279 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
let person = filter (\x -> name x == "John Smith") people
age dob = getCurrentTime >>= return . (\now -> (diffDays now dob) `div` 365) . utctDay
in
[name person, dob person, age (dob person)]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment