fizzbuzz.hs

-- http://www.parsonsmatt.org/2016/02/27/an_elegant_fizzbuzz.html

import Data.Foldable
import Data.Maybe

type FizzRule = Integer -> Maybe String

rule :: Integer -> String -> FizzRule
rule n m i =
  case i `mod` n of
    0 -> Just m
    _ -> Nothing

fizz = rule 3 "Fizz"
buzz = rule 5 "Buzz"


fizzBuzz :: (Functor f, Foldable t)
            => t (Integer -> Maybe String)
            -> f Integer
            -> f String
fizzBuzz rules = fmap (fromMaybe <$> show <*> ruleSet)
  where
    ruleSet = fold rules


{-  example repl session

λ> :l fizzbuzz.hs
[1 of 1] Compiling Main             ( fizzbuzz.hs, interpreted )
Ok, modules loaded: Main.
λ> fizzBuzz [fizz, buzz]
fizzBuzz [fizz, buzz] :: Functor f => f Integer -> f String

?? now what do ??
-}

λ> let f = fizzBuzz [fizz, buzz]
λ> :t f
f :: Functor f => f Integer -> f String
λ> f 10

<interactive>:32:1-4:
    No instance for (Functor f0) arising from a use of ‘it’
    The type variable ‘f0’ is ambiguous
    Note: there are several potential instances:
      instance Functor (Either a) -- Defined in ‘Data.Either’
      instance Functor Data.Proxy.Proxy -- Defined in ‘Data.Proxy’
      instance GHC.Arr.Ix i => Functor (GHC.Arr.Array i)
        -- Defined in ‘GHC.Arr’
      ...plus six others
    In the first argument of ‘print’, namely ‘it’
    In a stmt of an interactive GHCi command: print it
λ> 

I think fizzBuzz returns a function that actually calculates the Fizz Buzz algorithm, but I can't figure out how to use it yet...

λ> let f = fizzBuzz [fizz, buzz]
λ> :t f
f :: Functor f => f Integer -> f String
λ> f 10

<interactive>:32:1-4:
    No instance for (Functor f0) arising from a use of ‘it’
    The type variable ‘f0’ is ambiguous
    Note: there are several potential instances:
      instance Functor (Either a) -- Defined in ‘Data.Either’
      instance Functor Data.Proxy.Proxy -- Defined in ‘Data.Proxy’
      instance GHC.Arr.Ix i => Functor (GHC.Arr.Array i)
        -- Defined in ‘GHC.Arr’
      ...plus six others
    In the first argument of ‘print’, namely ‘it’
    In a stmt of an interactive GHCi command: print it
λ> 

I think fizzBuzz returns a function that actually calculates the Fizz Buzz algorithm, but I can't figure out how to use it yet...

You have to wrap the Integer argument in a Functor, specifically a list.

fizzBuzz [fizz, buzz] [10 .. 15]
-- ["Buzz","11","Fizz","13","14","FizzBuzz"]

To get the output you might expect, you can map over the output strings and print them.

mapM_ putStrLn (fizzBuzz [fizz, buzz] [10 .. 15])
-- Buzz
-- 11
-- Fizz
-- 13
-- 14
-- FizzBuzz

You have to wrap the Integer argument in a Functor, specifically a list.

fizzBuzz [fizz, buzz] [10 .. 15]
-- ["Buzz","11","Fizz","13","14","FizzBuzz"]

To get the output you might expect, you can map over the output strings and print them.

mapM_ putStrLn (fizzBuzz [fizz, buzz] [10 .. 15])
-- Buzz
-- 11
-- Fizz
-- 13
-- 14
-- FizzBuzz