Data commit

Task/Binary-search/Icon/binary-search-1.icon

@@ -0,0 +1,11 @@
+procedure binsearch(A, target)
+    if *A = 0 then fail
+    mid := *A/2 + 1
+    if target > A[mid] then {
+        return mid + binsearch(A[(mid+1):0], target)
+        }
+    else if target < A[mid] then {
+        return binsearch(A[1+:(mid-1)], target)
+        }
+    return mid
+end

Task/Binary-search/Icon/binary-search-2.icon

@@ -0,0 +1,13 @@
+procedure main(args)
+    target := integer(!args) | 3
+    every put(A := [], 1 to 18 by 2)
+
+    outList("Searching", A)
+    write(target," is ",("at "||binsearch(A, target)) | "not found")
+end
+
+procedure outList(prefix, A)
+    writes(prefix,": ")
+    every writes(!A," ")
+    write()
+end