More functions for chapter 1

2014-09-21 06:51:36 -04:00 · 2014-09-21 06:51:36 -04:00 · e16dfcf0e0
commit e16dfcf0e0
parent 28f72bd513
2 changed files with 3 additions and 0 deletions
--- a/lyahfgg/boombangs.hs
+++ b/lyahfgg/boombangs.hs
@ -0,0 +1 @@
+boomBangs xs = [if x < 10 then "BOOM!" else "BANG!" | x <- xs, odd x]
--- a/lyahfgg/hilarity.hs
+++ b/lyahfgg/hilarity.hs
@ -0,0 +1,2 @@
+adjNounHilarity adjectives nouns =
+	[adjective ++ " " ++ noun | adjective <- adjectives, noun <- nouns]
				`@ -0,0 +1 @@`
				`boomBangs xs = [if x < 10 then "BOOM!" else "BANG!" \| x <- xs, odd x]`