source tracking and composite primitives
This commit is contained in:
parent
b9a5bc5e63
commit
aebe586a05
9 changed files with 237 additions and 220 deletions
6
test.grr
6
test.grr
|
|
@ -1,7 +1,3 @@
|
|||
def dip { swap >r call r> }
|
||||
def keep { over >r call r> }
|
||||
def if { ? call }
|
||||
|
||||
def fib/aux {
|
||||
if: dig dup 0 =
|
||||
[drop drop]
|
||||
|
|
@ -10,4 +6,4 @@ def fib/aux {
|
|||
}
|
||||
def fib { 0 1 fib/aux }
|
||||
|
||||
[ 50 fib ] call \=> 12586269025
|
||||
[ 50 fib ] call
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue