Fizzbuzz.scala

// An implementation of FizzBuzz using monoids
import scalaz._, Scalaz._

def makeFizzBuzz[A: Monoid](ps: Iterable[Int => A]): Int => A = 
  (i: Int) => ps.toList.foldMap(_.apply(i)) 

def moduloMatch[A:Monoid](m: Int)(v: A): Int => A =
  (i: Int) => (i % m == 0) ?? v

val fizzbuzz = makeFizzBuzz { Seq(
  moduloMatch(3)("Fizz"),
  moduloMatch(5)("Buzz"),
  moduloMatch(7)("Bazz")
)}

(1 to 100) foreach { i => println(s"$i => ${fizzbuzz(i)}") }