yet more functions. baby.

lyahfgg/baby.hs

@@ -7,3 +7,9 @@ doubleSmallNumber x = if x > 100
                         else x*2
 
 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']]