13 lines
308 B
Haskell
13 lines
308 B
Haskell
doubleMe x = x + x
|
|
|
|
doubleUs x y = doubleMe x + doubleMe y
|
|
|
|
doubleSmallNumber x = if x > 100
|
|
then x
|
|
else x*2
|
|
|
|
doubleSmallNumber' x = (if x > 100 then x else x*2) + 1
|
|
|
|
-- boom bangs, ya heard???
|
|
boomBangs xs = [ if x< 10 then "BOOM!" else "BANG!" | x <- xs, odd x]
|