etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-22 22:05:11 +00:00
Code Issues Projects Releases Wiki Activity

(fib.tal) Housekeeping

Browse source
This commit is contained in:
Devine Lu Linvega 2023-07-21 10:42:04 -07:00
parent 98a0c7d609
commit 050690181a
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
projects/examples/exercises/fib.tal
View file

@ -20,18 +20,18 @@
@fib ( num* -- numfib* )
#0001 GTH2k ?&>ok
POP2 JMP2r &>ok
( a ) SUB2k fib STH2
( b ) INC2 SUB2 fib STH2r
( res ) ADD2 JMP2r
SUB2k fib STH2
INC2 SUB2 fib STH2r
ADD2 JMP2r
(
@|tail-recursive )
@fibr ( a* b* num* -- a* b* numfib* )
DUP2 #0001 NEQ2 ?&>no-1
POP2 DUP2 JMP2r &>no-1
( a ) #0001 SUB2 STH2
( b ) SWP2 ADD2k NIP2 STH2r !fibr
#0001 NEQ2k ?&>no-1
POP2 POP2 DUP2 JMP2r &>no-1
SUB2 STH2
SWP2 OVR2 ADD2 STH2r !fibr
(
@|stdlib )