From 1785edafb710ee8971b4b88d6942521243d9fb5b Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Sat, 20 Sep 2014 09:54:47 -0500 Subject: [PATCH] Starting over with the Haskells --- lyahfgg/README | 8 -------- lyahfgg/baby.hs | 22 ---------------------- 2 files changed, 30 deletions(-) delete mode 100644 lyahfgg/README delete mode 100644 lyahfgg/baby.hs diff --git a/lyahfgg/README b/lyahfgg/README deleted file mode 100644 index 340a3ad..0000000 --- a/lyahfgg/README +++ /dev/null @@ -1,8 +0,0 @@ - _____________________________________ -< Learn You a Haskell for Great Good! > - ------------------------------------- - \ ^__^ - \ (oo)\_______ - (__)\ )\/\ - ||----w | - || || diff --git a/lyahfgg/baby.hs b/lyahfgg/baby.hs deleted file mode 100644 index 1160317..0000000 --- a/lyahfgg/baby.hs +++ /dev/null @@ -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