Data commit

Task/Binary-search/Zkl/binary-search-1.zkl

@@ -0,0 +1,9 @@
+fcn bsearch(list,value){	// list is sorted
+   fcn(list,value, low,high){
+      if (high < low) return(Void);	// not found
+      mid:=(low + high) / 2;
+      if (list[mid] > value) return(self.fcn(list,value, low,   mid-1));
+      if (list[mid] < value) return(self.fcn(list,value, mid+1, high));
+      return(mid);			// found
+   }(list,value,0,list.len()-1);
+}

Task/Binary-search/Zkl/binary-search-2.zkl

@@ -0,0 +1,6 @@
+list:=T(1,3,5,7,9,11); println("Sorted values: ",list);
+foreach i in ([0..12]){
+   n:=bsearch(list,i);
+   if (Void==n) println("Not found: ",i);
+   else println("found ",i," at index ",n);
+}