#include <stdio.h>

int main(void)
{
 int i;
for(i=1; i<=100; i++)
 {
   if(i%15== 0)
printf("FizzBuzz\n");
else if((i%3)==0)
printf("Fizz\n");
else if((i%5)==0)
printf("Buzz\n");
else
printf("%d\n",i);
    }


  return 0;
}

#include <stdio.h>

int main(void)
{
 int i;
for(i=1; i<=100; i++)
 {
   if(i%15== 0)
printf("FizzBuzz\n");
else if((i%3)==0)
printf("Fizz\n");
else if((i%5)==0)
printf("Buzz\n");
else
printf("%d\n",i);
    }
  return 0;
}

#include <iostream>
using namespace std;

int main()
{
  for(int i=1;i<=100;i++)
  {
    string output = "";
    if(i%3==0) {output+="Fizz";}
    if(i%5==0) {output+="Buzz";}
    if((i%3!=0)&&(i%5!=0)) {cout<<i<<endl;}
    else {cout<<output<<endl;}
  }
return 0;
}

#include <iostream>
using namespace std;

int main()
{
  for(int i=1;i<=100;i++)
  {
    string output = "";
    if(i%3==0) {output+="Fizz";}
    if(i%5==0) {output+="Buzz";}
    if((i%3!=0)&&(i%5!=0)) {cout<<i<<endl;}
    else {cout<<output<<endl;}
  }
return 0;
}

newtype FizzBuzz = MakeFizzBuzz Int

instance Show FizzBuzz where
  show (MakeFizzBuzz x)
    | (x `mod` 3 == 0) && (x `mod` 5 == 0)  =  "fizzbuzz"
    | (x `mod` 3 == 0)                      =  "fizz"
    | (x `mod` 5 == 0)                      =  "buzz"
    | otherwise                             =  show x

main = mapM_ print [MakeFizzBuzz x | x <- [1..100]]

newtype FizzBuzz = MakeFizzBuzz Int

instance Show FizzBuzz where
  show (MakeFizzBuzz x)
    | (x `mod` 3 == 0) && (x `mod` 5 == 0)  =  "fizzbuzz"
    | (x `mod` 3 == 0)                      =  "fizz"
    | (x `mod` 5 == 0)                      =  "buzz"
    | otherwise                             =  show x

main = mapM_ print [MakeFizzBuzz x | x <- [1..100]]

function fizzbuzz(n)
    if n%15 == 0 then
        print("fizzbuzz")
    elseif n%5 == 0 then
        print("buzz")
    elseif n%3 == 0 then
        print("fizz")
    else
        print("" .. n)
    end
end

for i=1,100,1 do
    fizzbuzz(i)
end

<?php
for($i=1;$i<=100;$i++){
$str = '';
if($i%3==0) { $str .= 'Fizz'; }
if($i%5==0) { $str .= 'Buzz'; }
if($str=='') { echo $i; } else { echo $str; }
echo "\n";
}
?>

for (1..100){
    my $f = $_ % 3;
    my $b = $_ % 5;
    if( !$f ){
        print "fizz";
    }
    if( !$b ){
        print "buzz"
    }
    if( $f && $b ){
        print $_;
    }
    print "\n";
}

print$_%15?$_%5?$_%3?$_:'Fizz':'Buzz':'FizzBuzz',"\n"for 1..100;

def fizzbuzz(n):
    if n % 3 == 0 and n % 5 == 0: return 'FizzBuzz'
    elif n % 3 == 0: return 'Fizz'
    elif n % 5 == 0: return 'Buzz'
    else: return str(n)
print "\n".join(fizzbuzz(n) for n in xrange(1, 101))

def fizzbuzz(n):

    if n % 3 == 0 and n % 5 == 0:
        return 'FizzBuzz'
    elif n % 3 == 0:
        return 'Fizz'
    elif n % 5 == 0:
        return 'Buzz'
    else:
        return str(n)

print "\n".join(fizzbuzz(n) for n in xrange(1, 101))

1.upto(100) do |i|
  out = nil
  out = out.to_s + 'Fizz' if i % 3 == 0
  out = out.to_s + 'Buzz' if i % 5 == 0
  puts out || i
end

1.upto(100) do |i|
  out = nil
  out = out.to_s + 'Fizz' if i % 3 == 0
  out = out.to_s + 'Buzz' if i % 5 == 0
  puts out || i
end

(define (fizz-buzzify index)
  (letrec ((fizz-val (lambda (i s) ;Hey, I found a use for letrec.
                       (if (> i 0)
                           (fizz-val (- i 1)
                                     (string-append
                                      (cond
                                        ((= (modulo i 15) 0) "FizzBuzz")
                                        ((= (modulo i 5) 0) "Buzz")
                                        ((= (modulo i 3) 0) "Fizz")
                                        (else (number->string i))) "\n" s))
                           s))))
    (fizz-val index "")))

(display (fizz-buzzify 100))