From 20ddcf5e3733677b695d50d86d65c8de5b386e60 Mon Sep 17 00:00:00 2001 From: ubq323 Date: Thu, 2 May 2024 21:06:41 +0100 Subject: oeu --- test.r1 | 45 ++------------------------------------------- 1 file changed, 2 insertions(+), 43 deletions(-) (limited to 'test.r1') diff --git a/test.r1 b/test.r1 index 8a51d81..557932d 100644 --- a/test.r1 +++ b/test.r1 @@ -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 -- cgit v1.2.3