Functional-ish fizzbuzz in python

fizzbuzz.py

from itertools import cycle, izip
import operator import add
fizz = cycle(['', '', 'fizz'])
buzz = cycle(['','','','','buzz'])
r = izip(fizz, buzz)
index = 1
while index < 101:
    print("{}: {}".format(index, add(*r.next())))
    index = index + 1

from __future__ import print_function
from itertools import cycle, izip, count, imap
from operator import add 
fizz = cycle(['', '', 'fizz'])
buzz = cycle(['','','','','buzz'])
r = izip(fizz, buzz)
i = count(1)
text = imap(lambda x: add(*x), r)

map(print, imap(lambda x: "{}:{}".format(i.next(), x), text))

<?php

    $start = 10;
    $count = 0;

    $ugh = array_fill(0, 15, '');
    $fizz = array('', '', 'fizz');
    $buzz = array('','','','','buzz');

    foreach ($ugh as &$val) {
        $val = current($fizz).current($buzz);
        if(next($fizz) === false){
            reset($fizz);
        }
        if(next($buzz) === false){
            reset($buzz);
        }
    }

    reset($ugh);

    $i = 1;
    $lemniscate = (boolean) $count;
    while ($i < $start+$count || !$lemniscate) {
        if($i >= $start){
            print(sprintf('%d: %s', $i, current($ugh))."\n");
        }
        if(next($ugh) === false){
            reset($ugh);
        }
        $i++;
    }

Public Sub fb()
For i = 1 To 100
Select Case 0
Case n Mod 15
i = "FizzBuzz"
Case n Mod 3
i = "Fizz"
Case n Mod 5
i = "Buzz"
Case Else
i = n
End Select
Debug.Print i
Next n
End Sub

oops wrong language :)

Here it is in Haskell

let fizz = cycle ['', '', 'fizz']
let buzz = cycle ['', '', '', '', 'buzz']
let fizzbuzz = zipWith (++) fizz buzz
putStr (unlines fizzbuzz)