23 lines
273 B
Text
23 lines
273 B
Text
|
| FizzBuzz
|
||
|
|
|
||
|
|
1 I
|
||
|
|
if I LE 100
|
||
|
|
mod I 3 X
|
||
|
|
mod I 5 Y
|
||
|
|
if X EQ 0
|
||
|
|
'FIZZ' $S
|
||
|
|
if Y EQ 0
|
||
|
|
+ 'BUZZ' $S
|
||
|
|
endif
|
||
|
|
else
|
||
|
|
if Y EQ 0
|
||
|
|
'BUZZ' $S
|
||
|
|
else
|
||
|
|
~ I $S
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
$S []
|
||
|
|
+ I
|
||
|
|
goif
|
||
|
|
endif
|