generic FizzBuzz

GFizzBuzz.hs

module GFizzBuzz (gFizzBuzz) where

import Data.List

gFizzBuzz :: (Int,Int)          -- range
          -> [(Int,String)]     -- spec of fizzbuzz
          -> [String]           -- generic FizzBuzz strings
gFizzBuzz r = narrow r . zipWith (#) [0..] . map concat . transpose . map gfizzs
            

gfizzs :: (Int,String) -> [String]
gfizzs (n,s) = cycle $ take n $ s:repeat ""

(#) :: Int -> String -> String
(#) n "" = show n
(#) _ ss = ss

narrow :: (Int,Int) -> [String] -> [String]
narrow (f,t) = drop f . take (t+1)