From 7b76c697bd9f733aa242e12a01df4dc3a065a9e0 Mon Sep 17 00:00:00 2001
From: Johannes Stoelp <johannes.stoelp@gmail.com>
Date: Sun, 25 Sep 2022 00:04:18 +0200
Subject: allow to run program from file, add ch5 example programs

---
 ks/forloop.ks | 7 +++++++
 ks/ifelse.ks  | 7 +++++++
 2 files changed, 14 insertions(+)
 create mode 100644 ks/forloop.ks
 create mode 100644 ks/ifelse.ks

(limited to 'ks')

diff --git a/ks/forloop.ks b/ks/forloop.ks
new file mode 100644
index 0000000..0efa5c3
--- /dev/null
+++ b/ks/forloop.ks
@@ -0,0 +1,7 @@
+extern putchard(char);
+def printstar(n)
+  for i = 1, i < n, 1.0 in
+    putchard(42);  # ascii 42 = '*'
+
+# print 100 '*' characters
+printstar(100);
diff --git a/ks/ifelse.ks b/ks/ifelse.ks
new file mode 100644
index 0000000..3aa4778
--- /dev/null
+++ b/ks/ifelse.ks
@@ -0,0 +1,7 @@
+def fib(x)
+  if x < 3 then
+    1
+  else
+    fib(x-1)+fib(x-2);
+
+fib(10);
-- 
cgit v1.2.3