Почему програмисты не умеют програмировать?

[wvxvw]

А вот собственно, решение на божественном языке

#!/usr/bin/sbcl --script
(defun fizz-buzz (i threes fives)
	(let (result)
		(when (< i 100)
			(setq result "")
			(when (= i threes)
				(setq result "Fizz")
				(setq threes (+ threes 3))
			)
			(when (= i fives)
				(setq result (concatenate 'string result "Buzz"))
				(setq fives (+ fives 5))
			)
			(when (equal result "")
				(setq result i)
			)
			(print result)
			(fizz-buzz (1+ i) threes fives)
		)
	)
)

(fizz-buzz 1 3 5)

[Nirth]

Scheme или Common Lisp ))?

[wvxvw]

CLisp

[lowka]

val s = (1 to 100).foldLeft(""){(xs, x) => xs + (x match{
    case a if x % 5 == 0 && x % 3 == 0 => "FizzBuzz"
    case b if x % 5 == 0 => "Buzz"
    case c if x % 3 == 0 => "Fizz"
    case _ => x.toString
  })
}

+++
это ничего не выводит. хм.
тогда так

(1 to 100) foreach {x => println(x match{
    case a if a % 5 == 0 && a % 3 == 0 => "FizzBuzz"
    case b if b % 5 == 0 => "Buzz"
    case c if c % 3 == 0 => "Fizz"
    case _ => x.toString
  })
}

[wvxvw]

Scala?

[Nirth]

Ага ))

[Котяра]

Раз уж пошли "божественные" языки..))

-module(test).
-export([fizzBuzz/0]).
 
fizzBuzz() ->
fizzBuzz(1).
 
fizzBuzz(101)->ok.
 
fizzBuzz(A)->
if
	A rem 3 == 0 && A rem 5 == 0 ->
		io:format("FizzBuzz~n", []);
	A rem 3 == 0 ->
		io:format("Fizz~n", []);
	A rem 5 == 0 ->
		io:format("Buzz~n", []);
	true ->
		io:format("~w~n", [A])
end,
fizzBuzz(A+1).
 
 
>test:fizzBuzz().

PS:Работоспособность не проверял - могут быть косяки).

[Nirth]

Prolog

shout( fizz, 3 ).
shout( buzz, 5 ).
 
fizz_buzz( Total, Total )	:- true.
fizz_buzz( Current, Total )	:- 
	shout( X, Current ),
	shout( Y, Current ),
	Current is Current + 1,
	fizz_buzz( Current, Total),
	X, Y.

Правда он не выводит данные как надо, я в Прологе со строками еще толком не работал ^_^, надо будет дописать как надо.

Добавлено через 23 минуты
Кстати, старый добрый ActionScript, тоже может тянутся на Олимп:

var fizzBuzz:Function = function( count:int = 0 ):void
			{
				var result:String = '';
				if( !( count % 3 ) )
					result += "Fizz";
				if( !( count % 5 ) )
					result += "Buzz";
 
				trace( count, result );
 
				tail( count );
			}
 
			var tail:Function = function( count:int ):void
			{
				if( ++count <= 100 )
					fizzBuzz( count );
			}
 
			fizzBuzz();

Надо выспавшись подумать, как старину Curry сюда приделать, а то Tail-Recurssion не слишком уж божественно ^_^

[Котяра]

практически аналог эрланговского кода на AS3 :

function fizzBuzz(a:int=1,b:int=100):void
{
		if (a > b) return;
 
		if (a % 3 == 0 && a % 5 == 0) 
			trace ("FizzBuzz");
		else if (a % 3 == 0) 
			trace ("Fizz");
		else if (a % 5 == 0) 
			trace ("Buzz");
		else 
			trace(a);
		fizzBuzz(a + 1,b);	
}
 
 
fizzBuzz();

только в отличии от эрланга может произойти переполнение стека рекурсий уже на
fizzBuzz(1,256);

UPD: странно..никакого переполнения не наблюдаю)))))

UPD2: таки наблюдаю на fizzBuzz(1,5552);

Error: Error #1023: Stack overflow occurred.

[Nirth]

Ну кстати, tail рекурсией, можно сделать вызов setTimeout ^_^ и обойти переполнение стэка