Skip to content

Instantly share code, notes, and snippets.

@moonmaster9000

moonmaster9000/accessor_methods.hs

Created May 1, 2010 22:33
Show Gist options
  • Save moonmaster9000/386716 to your computer and use it in GitHub Desktop.
Save moonmaster9000/386716 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
accessor_methods.hs
addAuthor a (Book b as) = Book b ((createAuthor a [b]):as)
addBook b (Author a bs) = Author a ((createBook b [a]):bs)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment