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

yet more functions. baby.

Browse Source
This commit is contained in:
Dan Buch 2012-04-02 23:04:35 -04:00
parent 5d3ed2ad87
commit da11635b28
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lyahfgg/baby.hs
View File

@ -7,3 +7,9 @@ doubleSmallNumber x = if x > 100
else x*2 else x*2
doubleSmallNumber' x = (if x > 100 then x else x*2) + 1 doubleSmallNumber' x = (if x > 100 then x else x*2) + 1
boomBangs xs = [if x < 10 then "BOOM!" else "BANG!" | x <- xs, odd x]
length' xs = sum [1 | _ <- xs]
removeNonUppercase st = [c | c <- st, c `elem` ['A'..'Z']]