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-3.maple
+++ b/Task/Binary-search/Maple/binary-search-3.maple
@ -0,0 +1,17 @@
+> N := 10:
+> P := [seq]( ithprime( i ), i = 1 .. N ):
+> BinarySearch( P, 12, 1, N ); # recursive version
+                                  FAIL
+
+> BinarySearch( P, 13, 1, N ); # recursive version
+                                   6
+
+> BinarySearch( Array( P ), 13, 1, N ); # make P into an array
+                                   6
+
+> PP := Array( -2 .. 7, P ): # check it works if the array is not 1-based.
+> BinarySearch( PP, 13 ); # iterative version
+                                   3
+
+> PP[ 3 ];
+                                   13