int main() {


    int i = 1;
    while( i < 101 ) {

        if( i % 15 == 0 ) {
            printf("FizzBuzz\n");
        } else if ( i % 5 == 0 ) {
            printf("Buzz\n");
        } else if ( i % 3 == 0 ) {
            printf("Fizz\n");
        } else {
            printf("%d\n",i);
        }
        i++;
    }

    return 0;
}

int main() {


    int i = 1;
    while( i < 101 ) {

        if( i % 15 == 0 ) {
            printf("FizzBuzz\n");
        } else if ( i % 5 == 0 ) {
            printf("Buzz\n");
        } else if ( i % 3 == 0 ) {
            printf("Fizz\n");
        } else {
            printf("%d\n",i);
        }
        i++;
    }

    return 0;
}

#include <stdio.h>

int main(int argc, char **args)
{
	for (int i = 1; i <= 100; ++i)
	{
		bool div3 = (i % 3) == 0;
		bool div5 = (i % 5) == 0;
		if (div3 && div5) printf("FizzBuzz\n");
		else if (div3) printf("Fizz\n");
		else if (div5) printf("Buzz\n");
		else printf("%d\n", i);
	}
	
	return 0;
}

#include <iostream>

using namespace std;

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

main = mapM_ putStrLn fb

--fb = [max(show x)$[n|(f,n)<-[(3,"Fizz"),(5,"Buzz")],mod x f<1]>>=id|x<-[1..100]]
-- Old:
fb = [max(show x)(concat[n|(f,n)<-[(3,"Fizz"),(5,"Buzz")],mod x f==0])|x<-[1..100]]

main = mapM_ putStrLn fb

fb = [max(show x)$[n|(f,n)<-[(3,"Fizz"),(5,"Buzz")],mod x f<1]>>=id|x<-[1..100]]
-- Old:
--   [max(show x)(concat[n|(f,n)<-[(3,"Fizz"),(5,"Buzz")],mod x f==0])|x<-[1..100]]

local loop = 1

while loop < 101 do
    if (loop%3 == 0) and (loop%5 == 0) then print("FizzBuzz")
        elseif (loop % 3) == 0 then print("Fizz")
        elseif (loop % 5) == 0 then print("Buzz")
        else print(loop) 
    end
    loop = loop + 1
end

for i=1,100 do print(i%15<1 and"FizzBuzz"or i%3<1 and"Fizz"or i%5<1 and"Buzz"or i)end

<?for(;$i++<100;)echo$i%3?$i%5?$i:"":Fizz,$i%5?"":Buzz,"\n" ;

<?for(;$i++<100;)echo$i%3?$i%5?$i:"":Fizz,$i%5?"":Buzz,"\n" ;

for ($i=1; $i <= 100; $i++) {
    if (($i%3 == 0) and ($i%5 == 0)){
        print ("FizzBuzz\n");
    }
    elsif ($i%3 == 0){
        print ("Fizz\n");
    }
    elsif ($i%5 == 0){
        print ("Buzz\n");
    }
    else{
        print ("$i\n");
    }
}

print 'Fizz'x!($_ % 3) . 'Buzz'x!($_ % 5) || $_, "\n" for 1 .. 100;

for i in xrange(1,101): print (i%3==0)*"Fizz" + (i%5==0)*"Buzz" or i

def fizzbuzz(n):
  for i in range(1, n+1):
    if i % 15 == 0: print 'FizzBuzz'
    elif i % 5 == 0: print 'Buzz'
    elif i % 3 == 0: print 'Fizz'
    else: print i

fizzbuzz(100)

(1..100).each {|x|
    if (x % 3 == 0 and x % 5 == 0)
        puts "FizzBuzz"
    elsif (x % 3 == 0)
        puts "Fizz"
    elsif (x % 5 == 0)
        puts "Buzz"
    else
        puts x
    end
}

1.upto(100) do |n|
  print "Fizz" if a = (n % 3).zero?
  print "Buzz" if b = (n % 5).zero?
  print n unless (a || b)
  print "\n"
end

(do ((i 1 (+ i 1)))
    ((> i 100))
    (display
      (cond ((= 0 (modulo i 15)) "FizzBuzz")
            ((= 0 (modulo i 3))  "Fizz")
            ((= 0 (modulo i 5))  "Buzz")
            (else                i)))
    (newline))