fizzbuzz.scala

/**
 * Port of the FizzBuzz solution described in
 * [http://themonadreader.files.wordpress.com/2014/04/fizzbuzz.pdf
 * FizzBuzz in Haskell by Embedding a Domain-Specific Language] to
 * scala.
 */
object FizzBuzz {
  def fizzbuzz(n:Int):String = {
    def test(d:Int, s:String)(x:String => String) = 
      if (n % d == 0) Function.const(s ++ x(""))_
      else x
    (test(3, "fizz")_ compose test(5, "buzz")_)(identity[String])(n.toString)
  }

  def main(args: Array[String]) = 1 to 15 foreach (fizzbuzz _ andThen println)
}