d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
projects/examples/exercises/fizzbuzz.tal
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 ( -> ) @fizzbuzz ( -> )
#6400 #1e00
&loop ( -- ) &>loop ( length i -- )
DUP <print-dec> DUP fizz OVR buzz ORA ?{ DUP <dec> }
#2018 DEO
DUP #03 DIVk MUL SUB ?{ ;dict/fizz <print-str>/ }
DUP #05 DIVk MUL SUB ?{ ;dict/buzz <print-str>/ }
#0a18 DEO #0a18 DEO
INC GTHk ?&loop INC GTHk ?&>loop
POP2 POP2 BRK
( exit ) #800f DEO
BRK
@<print-dec> ( num -- ) @fizz ( n -- ) #03 DIVk MUL SUB ?{ #01 ;Dict/fizz !<str> } #00 JMP2r
( x0 ) DUP #0a DIV <print-num> @buzz ( n -- ) #05 DIVk MUL SUB ?{ #01 ;Dict/buzz !<str> } #00 JMP2r
( 0x ) #0a DIVk MUL SUB @<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
@<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