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

(fib.tal) Fixed incorrect definition

This commit is contained in:
neauoire 2023-06-06 14:33:20 -07:00
parent 1666aebea2
commit 2810592c1b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
projects/examples/exercises/fib.tal
View File

@ -2,7 +2,7 @@
A series of numbers where the next number A series of numbers where the next number
is made of the two numbers before it ) is made of the two numbers before it )
|100 |0100 @on-reset
#0019 #0000 #0019 #0000
&l &l
@ -11,13 +11,13 @@
DUP2 #0000 #0001 ROT2 fibr pdec #0a18 DEO POP2 POP2 DUP2 #0000 #0001 ROT2 fibr pdec #0a18 DEO POP2 POP2
INC2 GTH2k ?&l INC2 GTH2k ?&l
POP2 POP2 POP2 POP2
#010f DEO #800f DEO
BRK BRK
( recursive ) ( recursive )
@fib ( num -- numfib* ) @fib ( num* -- numfib* )
#0001 GTH2k ?&ok #0001 GTH2k ?&ok
POP2 JMP2r &ok POP2 JMP2r &ok
SUB2k fib STH2 INC2 SUB2k fib STH2 INC2
@ -27,7 +27,7 @@ JMP2r
( tail-recursive ) ( tail-recursive )
@fibr ( a* b* num* -- a* b* num* ) @fibr ( a* b* num* -- a* b* numfib* )
ORAk ?&no-0 ORAk ?&no-0
POP2 OVR2 JMP2r &no-0 POP2 OVR2 JMP2r &no-0
DUP2 #0001 NEQ2 ?&no-1 DUP2 #0001 NEQ2 ?&no-1