From 12dbaa90ae2f8c43fd69caaf7d1665ca0182b962 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Fri, 28 Jan 2022 23:40:22 +0200 Subject: Implement loop --- samples/conditional.sample | 7 +++++++ samples/if.sample | 7 ------- samples/loop.sample | 9 +++++++++ 3 files changed, 16 insertions(+), 7 deletions(-) create mode 100644 samples/conditional.sample delete mode 100644 samples/if.sample create mode 100644 samples/loop.sample (limited to 'samples') diff --git a/samples/conditional.sample b/samples/conditional.sample new file mode 100644 index 0000000..fb67d66 --- /dev/null +++ b/samples/conditional.sample @@ -0,0 +1,7 @@ +define eq10? + 10 eq? + [ true ] + [ false ] cond ; + +10 eq10? . +5 eq10? . \ No newline at end of file diff --git a/samples/if.sample b/samples/if.sample deleted file mode 100644 index fb67d66..0000000 --- a/samples/if.sample +++ /dev/null @@ -1,7 +0,0 @@ -define eq10? - 10 eq? - [ true ] - [ false ] cond ; - -10 eq10? . -5 eq10? . \ No newline at end of file diff --git a/samples/loop.sample b/samples/loop.sample new file mode 100644 index 0000000..dce412e --- /dev/null +++ b/samples/loop.sample @@ -0,0 +1,9 @@ +define , dup . ; + +-- load idx value and print it (w/o consume) +-- calc idx - 1 and store in idx +10 $idx ! +[ $idx @ 0 gt? ] [ + $idx @ , + 1 - $idx ! +] loop -- cgit v1.3