Initial data commit

Task/FizzBuzz/Haskell/fizzbuzz-6.hs

@@ -0,0 +1,12 @@
+import Data.Bool (bool)
+
+fizzBuzz :: [String]
+fizzBuzz =
+  let fb n k = cycle $ replicate (pred n) [] <> [k]
+   in zipWith
+        (flip . bool <*> null)
+        (zipWith (<>) (fb 3 "fizz") (fb 5 "buzz"))
+        (show <$> [1 ..])
+
+main :: IO ()
+main = mapM_ putStrLn $ take 100 fizzBuzz