Starting over with the Haskells

This commit is contained in:
Dan Buch 2014-09-20 09:54:47 -05:00
parent 2dc819088c
commit 1785edafb7
2 changed files with 0 additions and 30 deletions

View File

@ -1,8 +0,0 @@
_____________________________________
< Learn You a Haskell for Great Good! >
-------------------------------------
\ ^__^
\ (oo)\_______
(__)\ )\/\
||----w |
|| ||

View File

@ -1,22 +0,0 @@
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
boomBangs xs = [if x < 10 then "BOOM!" else "BANG!" | x <- xs, odd x]
length' xs = sum [1 | _ <- xs]
removeNonUppercase :: [Char] -> [Char]
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