diff options
Diffstat (limited to 'test.r1')
| -rw-r--r-- | test.r1 | 45 |
1 files changed, 2 insertions, 43 deletions
@@ -1,4 +1,6 @@ : sqrt +i loc1 sto +i loc1 sto i mark2 dup i loc0 sto c /2 @@ -22,46 +24,3 @@ i add div c /2 i ret0 -: square -i dup mul -i ret0 -: tuck -i dup nrt -i ret0 - -: replace! -i dup lod -i nrt sto -i ret0 - -: close? -i nrt -c absdiff -i swp sle -i ret0 - -: /2 -i lit2 div -i ret0 - -: thresh -i lit4 ret0 - -: absdiff -i sub - -: abs -i lit0 slt -b f1 -i neg -% f1 -i ret0 - - -: hypot -c square -i swp -c square -i add -c sqrt -i ret0 |