A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Binary-search/Maple/binary-search-2.maple
+++ b/Task/Binary-search/Maple/binary-search-2.maple
@ -0,0 +1,17 @@
+BinarySearch := proc( A, value )
+        description "iterative binary search";
+        local low, high;
+
+        low, high := ( lowerbound, upperbound )( A );
+        while low <= high do
+                local mid := iquo( low + high, 2 );
+                if A[ mid ] > value then
+                        high := mid - 1
+                elif A[ mid ] < value then
+                        low := mid + 1
+                else
+                        return mid
+                end if
+        end do;
+        FAIL
+end proc: