x/box-o-sand
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More functions for chapter 1

Browse Source
This commit is contained in:
Dan Buch 2014-09-21 06:51:36 -04:00
parent 28f72bd513
commit e16dfcf0e0
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lyahfgg/boombangs.hs Normal file
View File

@ -0,0 +1 @@
boomBangs xs = [if x < 10 then "BOOM!" else "BANG!" | x <- xs, odd x]

2
lyahfgg/hilarity.hs Normal file
View File

@ -0,0 +1,2 @@
adjNounHilarity adjectives nouns =
[adjective ++ " " ++ noun | adjective <- adjectives, noun <- nouns]