YAPC::EU 2018 Glasgow Update!

Task/FizzBuzz/Haskell/fizzbuzz-1.hs

@@ -1,7 +1,11 @@
-main = mapM_ (putStrLn . fizzbuzz) [1..100]
-
+fizzbuzz :: Int -> String
 fizzbuzz x
-    | x `mod` 15 == 0 = "FizzBuzz"
-    | x `mod`  3 == 0 = "Fizz"
-    | x `mod`  5 == 0 = "Buzz"
-    | otherwise = show x
+  | f 15 = "FizzBuzz"
+  | f 3 = "Fizz"
+  | f 5 = "Buzz"
+  | otherwise = show x
+  where
+    f = (0 ==) . rem x
+
+main :: IO ()
+main = mapM_ (putStrLn . fizzbuzz) [1 .. 100]

Task/FizzBuzz/Haskell/fizzbuzz-2.hs

@@ -1,6 +1,18 @@
-main = putStr $ concat $ map fizzbuzz [1..100]
-
+fizzbuzz :: Int -> String
 fizzbuzz n =
-    "\n" ++ if null (fizz++buzz) then show n else fizz++buzz
-    where fizz = if mod n 3 == 0 then "Fizz" else ""
-          buzz = if mod n 5 == 0 then "Buzz" else ""
+  '\n' :
+  if null (fizz ++ buzz)
+    then show n
+    else fizz ++ buzz
+  where
+    fizz =
+      if mod n 3 == 0
+        then "Fizz"
+        else ""
+    buzz =
+      if mod n 5 == 0
+        then "Buzz"
+        else ""
+
+main :: IO ()
+main = putStr $ concatMap fizzbuzz [1 .. 100]