FizzBuzz++

fizzbuzz.coffee

for i in [1..120]
  ret = ""
  ret = ret + string for [j, string] in [[3, 'Fizz'], [5, 'Buzz'], [7, 'Baz']] when i%j is 0
  console.log ret or i

fizzbuzz.hs

fizzBuzz i = if null desc then show i else desc where 
   desc = concat [label | (j,label) <- pairs, rem i j == 0]
   pairs = [ (3,"Fizz"), (5,"Buzz"), (7,"Baz") ]
 
main = mapM_ (putStrLn . fizzBuzz) [1..120]

fizzbuzz.rb

def self.fizzbuzz(pairs=[[3, 'Fizz'], [5, 'Buzz'], [7, 'Baz']])
  1.upto(120) do |i|
    ret = ''
    pairs.each { |modulo, string| ret << string if i % modulo == 0 }
    puts ret.empty? ? i : ret
  end
end