etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(fizzbuzz.tal) Housekeeping

This commit is contained in:
neauoire 2023-09-05 20:05:14 -07:00
parent 5d39dcdbdc
commit d7f96acb93
1 changed files with 15 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
projects/examples/exercises/fizzbuzz.tal
View File

@ -1,33 +1,30 @@
( FizzBuzz: From 1 to 100, for multiples of 3 print "Fizz", of 5 "Buzz" and for both "FizzBuzz" )
|0100
@on-reset ( -> )
#6400
&loop ( integer )
DUP print-dec #2018 DEO
DUP #03 mod ?&>no-3
;dict/fizz print-str &>no-3
DUP #05 mod ?&>no-5
;dict/buzz print-str &>no-5
&loop ( -- )
DUP <print-dec>
#2018 DEO
DUP #03 DIVk MUL SUB ?{ ;dict/fizz <print-str>/ }
DUP #05 DIVk MUL SUB ?{ ;dict/buzz <print-str>/ }
#0a18 DEO
INC GTHk ?&loop
POP2
( halt ) #010f DEO
( exit ) #800f DEO
BRK
@mod ( a b -- c )
DIVk MUL SUB JMP2r
@<print-dec> ( num -- )
( x0 ) DUP #0a DIV <print-num>
( 0x ) #0a DIVk MUL SUB
( >> )
@print-dec ( num -- )
( x0 ) DUP #0a DIV print-dec/num
( 0x ) #0a DIVk MUL SUB &num #30 ADD #18 DEO
@<print-num> ( num -- )
#30 ADD #18 DEO
JMP2r
@print-str ( addr* -- )
&while ( -- )
LDAk #18 DEO
INC2 LDAk ?&while
@<print-str> ( addr* -- )
LDAk #18 DEO
INC2 & LDAk ?<print-str>
POP2 JMP2r
@dict ( strings )