Add some Dana programs

Author: kostis

dana/programs/bsort.dana

@@ -0,0 +1,52 @@
+def main
+
+  def bsort: n as int, x as int []
+
+    def swap: x y as ref int
+      var t is int
+      t := x
+      x := y
+      y := t
+
+    var changed is byte
+    var i is int
+
+    loop:
+      changed := false
+      i := 0
+      loop:
+        if i < n-1:
+          if x[i] > x[i+1]:
+            swap: x[i], x[i+1]
+            changed := true
+          i := i+1
+        else: break
+        if not changed: break
+
+  def writeArray: msg as byte [], n as int, x as int []
+    var i is int
+
+    writeString: msg
+    i := 0
+    loop:
+      if i < n:
+        if i > 0: writeString: ", "
+        writeInteger: x[i]
+        i := i+1
+      else: break
+    writeString: "\n"
+
+  var seed i is int
+  var x      is int [16]
+
+  seed := 65
+  i := 0
+  loop:
+    if i < 16:
+      seed := (seed * 137 + 220 + i) % 101
+      x[i] := seed
+      i := i+1
+    else: break
+  writeArray: "Initial array: ", 16, x
+  bsort: 16 x
+  writeArray: "Sorted array: ", 16, x

dana/programs/hanoi.dana

@@ -0,0 +1,21 @@
+def solve
+
+  def hanoi: rings as int, source target auxiliary as byte []
+
+    def move: source target as byte []
+      writeString: "Moving from "
+      writeString: source
+      writeString: " to "
+      writeString: target
+      writeString: ".\n"
+
+    if rings >= 1:
+      hanoi: rings-1, source, auxiliary, target
+      move: source, target
+      hanoi: rings-1, auxiliary, target, source
+
+  var numberOfRings is int
+
+  writeString: "Rings: "
+  numberOfRings := readInteger()
+  hanoi: numberOfRings, "left", "right", "middle"

dana/programs/hello.dana

@@ -0,0 +1,2 @@
+def hello ()
+   writeString: "Hello world!\n"

dana/programs/strrev.dana

@@ -0,0 +1,18 @@
+def main
+
+  var r is byte [32]
+
+  def reverse: s as byte []
+    var i l is int
+
+    l := strlen(s)
+    i := 0
+    loop:
+      if i < l:
+        r[i] := s[l-i-1]
+        i := i+1
+      else: break
+    r[i] := '\0'
+
+  reverse: "\n!dlrow olleH"
+  writeString: r