From 399faa1f97390215628d245f006610a9586ff1e9 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Mon, 17 Apr 2017 13:56:14 +0200
Subject: Add some example programs

---
 example/countup.slang  |  9 +++++++++
 example/fizzbuzz.slang | 16 ++++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 example/countup.slang
 create mode 100644 example/fizzbuzz.slang

(limited to 'example')

diff --git a/example/countup.slang b/example/countup.slang
new file mode 100644
index 0000000..69e71db
--- /dev/null
+++ b/example/countup.slang
@@ -0,0 +1,9 @@
+1 i $
+
+§ incr dup @ 1 + swp $ ;
+§ print @ . pop ;
+§ withinBounds @ 10 < ;
+
+§ loop i withinBounds if i print i incr loop then else ;
+
+loop
diff --git a/example/fizzbuzz.slang b/example/fizzbuzz.slang
new file mode 100644
index 0000000..653c180
--- /dev/null
+++ b/example/fizzbuzz.slang
@@ -0,0 +1,16 @@
+1 i $
+
+§ incr dup @ 1 + swp $ ;
+§ withinBounds @ 100 < ;
+
+§ fizz? @ 3 % 0 = ;
+§ buzz? @ 5 % 0 = ;
+
+§ fizzbuzz_or_fizz     buzz? if fizzbuzz then fizz else . pop ;
+§ buzz_or_print    dup buzz? if buzz     then @    else . pop ;
+
+§ branch dup fizz? if fizzbuzz_or_fizz then buzz_or_print else ;
+
+§ loop i withinBounds if i branch i incr loop then else ;
+
+loop
-- 
cgit v1.2.3