moonmaster9000 moonmaster9000
moonmaster9000
/ author_books_retrieval.rb
Created
May 1, 2010 21:55
moonmaster9000
/ author_books_retrieval.hs
Created
May 1, 2010 21:57
moonmaster9000
/ accessor_methods.hs
Created
May 1, 2010 22:33
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| addAuthor a (Book b as) = Book b ((createAuthor a [b]):as) | |
| addBook b (Author a bs) = Author a ((createBook b [a]):bs) |
moonmaster9000
/ addAuthor.hs
Created
May 1, 2010 22:37
moonmaster9000
/ consistency.hs
Created
May 1, 2010 22:44
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| clarke = createAuthor "Arthur C. Clarke" ["Garden of Rama"] | |
| lee = createAuthor "Gentry Lee" ["Garden of Rama"] | |
| gardenAuthorsAccordingToClarke = map name $ authors $ head $ books clarke | |
| -- ["Arthur C. Clarke"] | |
| gardenAuthorsAccordingToLee = map name $ authors $ head $ books lee | |
| -- ["Gentry Lee"] |
moonmaster9000
/ dollar.hs
Created
May 2, 2010 00:23
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| fac n = foldr (*) 1 $ take n $ [1..] |
moonmaster9000
/ pipe.hs
Created
May 2, 2010 00:28
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| infixl 9 ==> | |
| f ==> g = g $ f |
moonmaster9000
/ fac_with_pipes.hs
Created
May 2, 2010 00:30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| fac n = [1..] ==> take n ==> foldr (*) 1 |
moonmaster9000
/ library2.hs
Created
May 2, 2010 21:58
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module Library | |
| (Author, | |
| Book, | |
| AuthorIndex, | |
| BookIndex, | |
| Catalogued, | |
| Catalog, | |
| addAuthor, | |
| addBook, | |
| associate, |
moonmaster9000
/ library_events_chain.hs
Created
May 2, 2010 22:09
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| infixl 9 ==> | |
| f ==> g = g $ f | |
| lee = Author "Gentry Lee" | |
| clarke = Author "Arthur C. Clarke" | |
| heinlein= Author "Robert Heinlein" | |
| rama = Book "Garden of Rama" | |
| catalog = | |
| Catalog Map.empty Map.empty ==> | |
| associate lee rama ==> |