(fizzbuzz) Modernized

This commit is contained in:
Devine Lu Linvega 2024-03-10 10:54:28 -07:00
parent b1549867e4
commit cf964e4377
1 changed files with 16 additions and 29 deletions

View File

@ -1,33 +1,20 @@
( FizzBuzz: From 1 to 100, for multiples of 3 print "Fizz", of 5 "Buzz" and for both "FizzBuzz" )
( Print the first 30 numbers using the following rules:
| If n is divisible by 3, print "fizz"
| If n is divisible by 5, print "buzz"
| If n is divisible by both, print "fizzbuzz"
| Else, print the number )
@on-reset ( -> )
#6400
&loop ( -- )
DUP <print-dec>
#2018 DEO
DUP #03 DIVk MUL SUB ?{ ;dict/fizz <print-str>/ }
DUP #05 DIVk MUL SUB ?{ ;dict/buzz <print-str>/ }
@fizzbuzz ( -> )
#1e00
&>loop ( length i -- )
DUP fizz OVR buzz ORA ?{ DUP <dec> }
#0a18 DEO
INC GTHk ?&loop
POP2
( exit ) #800f DEO
BRK
INC GTHk ?&>loop
POP2 BRK
@<print-dec> ( num -- )
( x0 ) DUP #0a DIV <print-num>
( 0x ) #0a DIVk MUL SUB
( >> )
@<print-num> ( num -- )
#30 ADD #18 DEO
JMP2r
@<print-str> ( addr* -- )
LDAk #18 DEO
INC2 & LDAk ?<print-str>
POP2 JMP2r
@dict ( strings )
&fizz "Fizz $1
&buzz "Buzz $1
@fizz ( n -- ) #03 DIVk MUL SUB ?{ #01 ;Dict/fizz !<str> } #00 JMP2r
@buzz ( n -- ) #05 DIVk MUL SUB ?{ #01 ;Dict/buzz !<str> } #00 JMP2r
@<dec> ( n -- ) DUP #0a DIV /d #0a DIVk MUL SUB &d #30 ADD #18 DEO JMP2r
@<str> ( s* -- ) LDAk #18 DEO INC2 LDAk ?<str> POP2 JMP2r
@Dict &fizz "Fizz $1 &buzz "Buzz $1