Browse code
(fib.tal) Housekeeping
Devine Lu Linvega authored on 21/07/2023 17:42:04
Showing 1 changed files
| ... | ... |
@@ -20,18 +20,18 @@ |
| 20 | 20 |
@fib ( num* -- numfib* ) |
| 21 | 21 |
#0001 GTH2k ?&>ok |
| 22 | 22 |
POP2 JMP2r &>ok |
| 23 |
- ( a ) SUB2k fib STH2 |
|
| 24 |
- ( b ) INC2 SUB2 fib STH2r |
|
| 25 |
- ( res ) ADD2 JMP2r |
|
| 23 |
+ SUB2k fib STH2 |
|
| 24 |
+ INC2 SUB2 fib STH2r |
|
| 25 |
+ ADD2 JMP2r |
|
| 26 | 26 |
|
| 27 | 27 |
( |
| 28 | 28 |
@|tail-recursive ) |
| 29 | 29 |
|
| 30 | 30 |
@fibr ( a* b* num* -- a* b* numfib* ) |
| 31 |
- DUP2 #0001 NEQ2 ?&>no-1 |
|
| 32 |
- POP2 DUP2 JMP2r &>no-1 |
|
| 33 |
- ( a ) #0001 SUB2 STH2 |
|
| 34 |
- ( b ) SWP2 ADD2k NIP2 STH2r !fibr |
|
| 31 |
+ #0001 NEQ2k ?&>no-1 |
|
| 32 |
+ POP2 POP2 DUP2 JMP2r &>no-1 |
|
| 33 |
+ SUB2 STH2 |
|
| 34 |
+ SWP2 OVR2 ADD2 STH2r !fibr |
|
| 35 | 35 |
|
| 36 | 36 |
( |
| 37 | 37 |
@|stdlib ) |