48 lines
618 B
Text
48 lines
618 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();
|
|
);
|
|
|
|
# gotta predeclare the function so it can see itself
|
|
go := 0;
|
|
fn go([i max]) (
|
|
if (i <= max) [
|
|
fizzbuzz1(i);
|
|
go {^max} (i + 1);
|
|
] [];
|
|
);
|
|
|
|
go { ^max := 1000; } 1;
|