[dana] Fix various I/O issues

Author: kostis

dana/programs/binarysearch.dana

@@ -43,23 +43,21 @@ def main
     var nums is int [100]
     var size k find is int
     k := 0
-    writeString: "Give size of array: "
+    # writeString: "Give size of array: "
     size := readInteger()
-    writeString: "\n"
-    writeString: "Give the numbers of the array: "
+    # writeString: "Give the numbers of the array: "
     loop:
-        if k <= size:
+        if k < size:
             nums[k] := readInteger()
             k := k + 1
         else:
             nums[k] := 0
             break
 
-    writeString: "\n"
     quicksort: nums, 0, (size - 1)
-    writeString: "Array is now sorted\n"
-    writeString: "Which value should I search for? "
+    # writeString: "Array is now sorted\n"
+    # writeString: "Which value should I search for? "
     find := readInteger()
-    writeString: "\n"
     writeString: "Value is: "
     writeInteger: (binarySearch( nums, 0, (size - 1), find))
+    writeString: "\n"

dana/programs/lis.output

@@ -0,0 +1 @@
+longest increasing subsequence has length 4

dana/programs/lis.result

@@ -79,7 +79,6 @@ def main
         writeString: "Warning: Input size exceeds program capacity (1000 elements). Processing first 1000.\n"
         n_main := 1000
 
-
     if n_main > 0 :
         merge_sort: arr_main, 0, n_main - 1
 
@@ -88,6 +87,6 @@ def main
         if i_main >= n_main: break
         if i_main < 1000:
              writeInteger: arr_main[i_main]
-             writeString: " "
         i_main := i_main + 1
+        if i_main <> n_main: writeString: " "
     writeString: "\n"

dana/programs/mergesort.dana

@@ -33,7 +33,7 @@ def main
   var i_main is int 
   var result is int
 
-  writeString: "Enter number of elements (max 100):\n"
+  # writeString: "Enter number of elements (max 100):\n"
   n_actual := readInteger()
 
   if n_actual <= 0:
@@ -46,7 +46,7 @@ def main
   i_main := 0
   loop:
     if i_main < n_actual:
-      writeString: "Enter element "
+      # writeString: "Enter element "
       nums_main[i_main] := readInteger()
       i_main := i_main + 1
     else: break