int main() {
  int i;
  for (i=1;i<101;i++) {
    char j[9] = "";
    i%3 || strcpy(j, "Fizz");
    i%5 || strcat(j, "Buzz");
    j[0] || strcpy(j, "%d");
    printf(j, i);
    printf("\n");
  }
  return 0;
}

int main() {
  int i;
  for (i=1;i<101;i++) {
    char j[9] = "";
    i%3 || strcpy(j, "Fizz");
    i%5 || strcat(j, "Buzz");
    j[0] || strcpy(j, "%d");
    printf(j, i);
    printf("\n");
  }
  return 0;
}

#include <cstdio>
int main(){
   for (int i = 1; i <= 100; ++i){
      if (i % 3 == 0){
         printf("Fizz");
      }
      if (i % 5 == 0){
         printf("Buzz");
      }
      if (i % 3 && i % 5){
         printf("%d", i);
      }
   printf("\n");
   }
   return 0;
}

#include <cstdio>
int main(){
	for (int i = 1; i <= 100; ++i){
			if (i % 3 == 0){
				printf("Fizz");
			}
			if (i % 5 == 0){
				printf("Buzz");
			}
			if (i % 3 && i % 5){
				printf("%d", i);
			}
		printf("\n");
	}
	return 0;
}

import std.stdio;

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

import std.stdio;

void main() {
    for (int i = 1; i <= 100; i++) {
        if (i % 3 == 0) writef("Fizz");
        if (i % 5 == 0) writef("Buzz");
        if (i % 3 != 0 && i % 5 != 0) writef("%d", i);
        writef("\n");
    }
}

fb i
 | i `mod` 3 == 0 && i `mod` 5 == 0 = "FizzBuzz"
 | i `mod` 3 == 0 = "Fizz"
 | i `mod` 5 == 0 = "Buzz"
 | otherwise      = show i

main = mapM_ (putStrLn . fb) [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]]

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=1,1e2 do print(i%3<1 and(i%5<1 and'FizzBuzz'or'Fizz')or i%5<1 and'Buzz'or i)end

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

<?for($i=1;$i<=100;$i++)echo($i%3<1?($i%5<1?'FizzBuzz':'Fizz'):($i%5<1?'Buzz':$i))."\n";

for (my $i=1; $i<101; $i++)
{
    my $result = "";

    if ($i%3 == 0)
    {    
        $result = "Fizz";
    }
    if ($i%5 == 0)
    {
        $result .= "Buzz";
    }
    if (length($result) == 0) { $result = $i;}
    print "$result\n";
    
}

sub fb {
   if   ($_ % 15 == 0) { return "fizzbuzz\n" }
   elsif ($_ % 3 == 0) { return "fizz\n" }
   elsif ($_ % 5 == 0) { return "buzz\n" }
   return "$_\n";
}

print map {fb($_)} (1..100)

for i in xrange(1,101):
    if i % 3 == 0 and i % 5 == 0:
        print "FizzBuzz"
    elif i % 3 == 0:
        print "Fizz"
    elif i % 5 == 0:
        print "Buzz"
    else:
        print str(i)

for i in range(1,101):
    print("FizzBuzz"[i*i%3*4:8--i**4%5] or i)                

1.upto(100){|i|i%3<1&&x=:Fizz;puts i%5<1?"#{x}Buzz":x||i}

1.upto(100){|i|i%3<1&&x=:Fizz;puts i%5<1?"#{x}Buzz":x||i}