diff options
Diffstat (limited to 'examples/fibonacci.fp')
| -rw-r--r-- | examples/fibonacci.fp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/fibonacci.fp b/examples/fibonacci.fp index 493ca87..211a4d3 100644 --- a/examples/fibonacci.fp +++ b/examples/fibonacci.fp @@ -10,8 +10,8 @@ (nil eq) $null? ($x x) $force (10 emit) $cr - (print) $print - (4 +) $cell+ + (_print) $print + (8 +) $cell+ ($a $d 2 alloc $p ^a ^p poke ^d ^p cell+ poke @@ -50,7 +50,7 @@ ) endif ) force) $fibonacci - 30 10 range + 16 0 range ^fibonacci map ^print each ) |