axforum blogs: FizzBuzz

[mazzy]

кстати. в исходной задаче нужно было выводить все числа.
в процедурном коде можно убрать if.
а объектно-ориентированный код становится еще короче.

class TestState
{
   str description;
}
void new(boolean _state, int _description)
{
    if( _state )
        description = _description;
}
str getDescription()
{
    return description;
}
/////////////////////////////////////////
#define.FIZZ(3)
#define.BUZZ(5)
static void FizzBuzzImpl(Args _args)
{
    int i;
    TestState fizz, buzz;
    ;

    for (i = 1; i <=100; i++)
    {
        fizz = new TestState(((i mod #FIZZ) == 0), "Fizz");
        buzz = new TestState(((i mod #BUZZ) == 0), "Buzz");
        info(strfmt("%1%2 %3", fizz.getDescription(), buzz.getDescription(), i));
    }
}