solutions block 1

solutions/block1/bob-1.hs

@@ -0,0 +1,17 @@
+module Bob (responseFor) where
+import Data.Char ( isSpace, isAlpha, isUpper )
+
+isYelling :: [Char] -> Bool
+isYelling stmt = any isAlpha stmt && all isUpper (filter isAlpha stmt)
+
+isQuestion :: [Char] -> Bool
+isQuestion stmt = last (filter (not . isSpace) stmt) == '?'
+
+responseFor :: String -> String
+responseFor prompt
+    | all isSpace prompt = "Na gut. Dann eben nicht!"
+    | isQuestion prompt && isYelling prompt = "Chill mal, ich bin da schon dran!"
+    | isQuestion prompt = "Klar."
+    | isYelling prompt = "Whoa, entspann dich!"
+    | otherwise = "Whatever."
+    

solutions/block1/bob-2.hs

@@ -0,0 +1,15 @@
+module Bob (responseFor) where
+import Data.Char ( isLetter, isSpace, isUpper )
+
+responseFor :: String -> String
+responseFor input
+    | null text = "Na gut. Dann eben nicht!"
+    | isShouting && isAsking = "Chill mal, ich bin da schon dran!"
+    | isShouting = "Whoa, entspann dich!"
+    | isAsking = "Klar."
+    | otherwise = "Whatever."
+  where
+    text = filter (not . isSpace) input
+    letters = filter isLetter text
+    isShouting = all isUpper letters && any isUpper letters
+    isAsking = last text == '?'

solutions/block1/darts.hs

@@ -0,0 +1,8 @@
+module Darts (score) where
+
+score :: Float -> Float -> Int
+score x y 
+  | x^2 + y^2 <= 1 = 10 
+  | x^2 + y^2 <= 25 = 5 
+  | x^2 + y^2 <= 100 = 1 
+  | otherwise = 0

solutions/block1/leap.hs

@@ -0,0 +1,9 @@
+module LeapYear (isLeapYear) where
+
+isLeapYear :: Integer -> Bool
+isLeapYear year
+  | year `mod` 400 == 0 = True
+  | year `mod` 100 == 0 = False
+  | year `mod` 4 == 0 = True
+  | otherwise = False
+