48 lines
534 B
Text
48 lines
534 B
Text
fn nl() (put 10);
|
|
|
|
fn zz() (
|
|
put 122;
|
|
put 122;
|
|
);
|
|
|
|
fn Fizz() (
|
|
put 70;
|
|
put 105;
|
|
zz();
|
|
);
|
|
|
|
fn Buzz() (
|
|
put 66;
|
|
put 117;
|
|
zz();
|
|
);
|
|
|
|
fn fizzbuzz1([n]) (
|
|
if (n % 15 = 0) [
|
|
Fizz(); Buzz();
|
|
] [
|
|
if (n % 3 = 0) [
|
|
Fizz();
|
|
] [
|
|
if (n % 5 = 0) [
|
|
Buzz();
|
|
] [
|
|
print n;
|
|
]
|
|
]
|
|
];
|
|
|
|
nl();
|
|
);
|
|
|
|
i := 1;
|
|
|
|
loop [
|
|
fizzbuzz1 i;
|
|
i := i + 1;
|
|
|
|
if (i > 100) [
|
|
exit 0;
|
|
] [];
|
|
];
|