[FizzBuzz] Тестовое задание на пять минут

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char * argv[])
{
	int i = 0;

	for (i = 0; i < 100; i++)
		if (i%3 == 0 && i%5 == 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 EXIT_SUCCESS;
}

// fizz-buzz.cs. 3 min, 1st try
using System;

public static class FizzBuzz {
  public static void Main() {
    for(int i = 1; i<=100; i++) {
      if( i % 15 == 0 ) Console.WriteLine("FizzBuzz");
      else if ( i % 5 == 0 ) Console.WriteLine("Buzz");
      else if ( i % 3 == 0 ) Console.WriteLine("Fizz");
      else Console.WriteLine(i);
    }
  }
}

% 2min
-module(fizzbuzz).
-compile(export_all).

f(N) when (N rem 15) == 0 -> io:format("FizzBuzz~n", []), f(N+1);
f(N) when (N rem 5) == 0 -> io:format("Buzz~n", []), f(N+1);
f(N) when (N rem 3) == 0 -> io:format("Fizz~n", []), f(N+1);
f(101) -> ok;
f(N) -> io:format("~p~n", [N]), f(N+1).

start() -> f(1).

1.upto(100) do |v|
  s = ""
  s += "Fizz" if v % 3 == 0
  s += "Buzz" if v % 5 == 0
  if not s.empty? then
    puts s
  else
    puts v.to_s
  end
end

for i = 1,100 do
   local s = ""
   if i % 3 == 0 then
      s = s .. "Fizz"
   end
   if i % 5 == 0 then
      s = s .. "Buzz"
   end
   if s ~= "" then
      print(s)
   else
      print(i)
   end
end

echo "1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86 Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz" | sed -e 's/ /\n/g'

#include <stdio.h>

int main(int argc, char *argv[argc])
{
	{
	char const *output[] = {"%d\n", "Fizz\n", "Buzz\n", "FizzBuzz\n"};
	for(size_t i = 1, check = 0; i <= 100; ++i, check = 0)
	{
		if(0 == i%3)check |=1;
		if(0 == i%5)check |=2;

		printf(output[check], i);
	}
	}
	return getch();
}

toString :: Int -> String
toString n | n `mod` 15 == 0 = "FizzBuzz"
           | n `mod`  3 == 0 = "Fizz"
           | n `mod`  5 == 0 = "Buzz"
           | True            = show n

solve :: [Int] -> IO ()
solve [] = return ()
solve (x:xs) = do putStrLn (toString x)
                  solve xs

main :: IO ()
main = solve [1 .. 100]

newLISP v.10.2.8 IPv4 UTF-8, execute 'newlisp -h' for more info.

ERR: invalid function : (mapcar '((X) (if2 (=0 (% X 3)) (=0 (% X 5)) 'Fizzbuzz 'Fizz 'Buzz X)) (range 1 100))
> 

F

1..100 | % {

	if (!( $_ % 3 )) { $res = "Fizz" }
	if (!( $_ % 5 )) { $res = "$($res)Buzz" }
	if ( $res )      { $res } else { $_ }
	$res = $null

}

@echo off
setlocal enabledelayedexpansion

for /l %%i in (1,1,100) do (

	for /f %%j in ('set /a %%i%%3') do if %%j==0 set "res=Fizz"
	for /f %%j in ('set /a %%i%%5') do if %%j==0 set "res=!res!Buzz"
	if defined res (echo !res!) else (echo %%i)
	set "res="

)

FOR A = 1 TO 100
    IF A MOD 3 = 0 AND A MOD 5 = 0 THEN
        PRINT "FizzBuzz"
    ELSE IF A MOD 3 = 0 THEN
        PRINT "Fizz"
    ELSE IF A MOD 5 = 0 THEN
        PRINT "Buzz"
    ELSE
        PRINT A
    END IF
NEXT A

org 100h

mov bx,1

lab1:
mov ax,bx
mov cl,3
div cl
cmp ah,0
jne lab3
mov ah,9
mov dx,fizz
int 21h
mov ax,bx
mov cl,5
div cl
cmp ah,0
jne lab5

lab2:
mov ah,9
mov dx,buzz
int 21h
jmp lab5

lab3:
mov ax,bx
mov cl,5
div cl
cmp ah,0
je lab2
mov ax,bx
mov cl,10
div cl
cmp al,0
je lab4
push ax
mov ah,2
mov dl,al
add dl,'0'
int 21h
pop ax

lab4:
mov dl,ah
mov ah,2
add dl,'0'
int 21h

lab5:
mov ah,2
mov dl,' '
int 21h
inc bx
cmp bx,100
jle lab1

int 20h

fizz db "Fizz$"
buzz db "Buzz$"

package main

import "fmt"

func main() {
    for i:=0;i<100;i++ {
        if  i%15 == 0  {
            fmt.Printf("FizzBuzz\n")
        } else if  i % 5 == 0  {
            fmt.Printf("Buzz\n")
        } else if  i % 3 == 0  {
            fmt.Printf("Fizz\n")
        } else {
            fmt.Printf("%d\n",i)
        }

    }
}