|
|
@ -12,4 +12,11 @@ boomBangs xs = [if x < 10 then "BOOM!" else "BANG!" | x <- xs, odd x]
|
|
|
|
|
|
|
|
|
|
|
|
length' xs = sum [1 | _ <- xs]
|
|
|
|
length' xs = sum [1 | _ <- xs]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
removeNonUppercase :: [Char] -> [Char]
|
|
|
|
removeNonUppercase st = [c | c <- st, c `elem` ['A'..'Z']]
|
|
|
|
removeNonUppercase st = [c | c <- st, c `elem` ['A'..'Z']]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
circumference :: Float -> Float
|
|
|
|
|
|
|
|
circumference r = 2 * pi * r
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
circumference' :: Double -> Double
|
|
|
|
|
|
|
|
circumference' r = 2 * pi * r
|
|
|
|