22 lines
273 B
Text
22 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
|