From 98329e0a3dd4f78b5d815ac3896272ec70904901 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Thu, 11 Dec 2025 10:28:11 +0100
Subject: Add remaining haskell book exercises

---
 Haskell-book/23/FizzBuzz.hs | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 Haskell-book/23/FizzBuzz.hs

(limited to 'Haskell-book/23/FizzBuzz.hs')

diff --git a/Haskell-book/23/FizzBuzz.hs b/Haskell-book/23/FizzBuzz.hs
new file mode 100644
index 0000000..daee3f7
--- /dev/null
+++ b/Haskell-book/23/FizzBuzz.hs
@@ -0,0 +1,29 @@
+module FizzBuzz where
+
+import Control.Monad
+import Control.Monad.Trans.State
+
+fizzBuzz :: Integer -> String
+fizzBuzz n
+  | n `mod` 15 == 0 = "FizzBuzz"
+  | n `mod` 5 == 0 = "Buzz"
+  | n `mod` 3 == 0 = "Fizz"
+  | otherwise = show n
+
+fizzbuzzList :: [Integer] -> [String]
+fizzbuzzList list = execState (mapM_ addResult list) []
+
+addResult :: Integer -> State [String] ()
+addResult n = do
+    xs <- get
+    let result = fizzBuzz n
+    put (result : xs)
+
+fizzbuzzFromTo :: Integer -> Integer -> [String]
+fizzbuzzFromTo from to = execState (mapM_ addResult (genList from [])) []
+    where genList from soFar
+            | from > to = soFar
+            | otherwise = genList (from + 1) (from : soFar)
+
+main :: IO ()
+main = mapM_ putStrLn $ fizzbuzzFromTo 1 100
-- 
cgit v1.2.3