d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages 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
is made of the two numbers before it )
|100
|0100 @on-reset
#0019 #0000
&l
@ -11,13 +11,13 @@
DUP2 #0000 #0001 ROT2 fibr pdec #0a18 DEO POP2 POP2
INC2 GTH2k ?&l
POP2 POP2
#010f DEO
#800f DEO
BRK
( recursive )
@fib ( num -- numfib* )
@fib ( num* -- numfib* )
#0001 GTH2k ?&ok
POP2 JMP2r &ok
SUB2k fib STH2 INC2
@ -27,7 +27,7 @@ JMP2r
( tail-recursive )
@fibr ( a* b* num* -- a* b* num* )
@fibr ( a* b* num* -- a* b* numfib* )
ORAk ?&no-0
POP2 OVR2 JMP2r &no-0
DUP2 #0001 NEQ2 ?&no-1