Noratrieb/GRSBPL
1
0
Fork 0
mirror of https://github.com/Noratrieb/GRSBPL.git synced 2026-01-14 19:55:03 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

character error message

Browse source
This commit is contained in:
nora 2021-05-31 17:00:31 +02:00
parent 9c3d9a2dd9
commit 44ded882c3
2 changed files with 25 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

24
fizzbuzz.grsbpl
View file

@ -1,9 +1,19 @@
10 factorial 1 goto exit
1 &i # init loop counter
:start # set start label
@i 100 - not goto finished # if i is 100, finish
@i 15 % not goto print_fizz_buzz # fizzbuzz
@i 5 % not goto print_buzz # buzz
@i 3 % not goto print_fizz # fizz
@i nout '\n' out # normal number
:end # go back here after printing
@i 1 + &i # increment i
1 goto start # go back to the start
function factorial 1
dup not goto isZero
pop dup 1 - factorial * return
:isZero
1 pop return
:print_fizz_buzz
"Fizzbuzz\n" out goto end
:print_fizz
"Fizz\n" out goto end
:print_buzz
"Buzz\n" out goto end
:exit pop dup nout
:finished 0