diff options
| author | ubq323 <ubq323@ubq323.website> | 2024-05-02 21:06:41 +0100 |
|---|---|---|
| committer | ubq323 <ubq323@ubq323.website> | 2024-05-02 21:06:41 +0100 |
| commit | 20ddcf5e3733677b695d50d86d65c8de5b386e60 (patch) | |
| tree | 94f430b0c89af489b31eaec9dde79fc8070786b6 /test.r1 | |
| parent | 1f6ed601a14ef9bb6651a9ff0000155929473d0c (diff) | |
oeu
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 |