[MLton-commit] r6872

[Vesa Karvonen]

More primes.

----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/numeric/mk-word-ext.fun

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/numeric/mk-word-ext.fun
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/numeric/mk-word-ext.fun	2008-09-20 08:31:44 UTC (rev 6871)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/numeric/mk-word-ext.fun	2008-09-20 18:09:39 UTC (rev 6872)
@@ -24,22 +24,38 @@
       val largestPrime =
           (~ o fromInt)
              (case wordSize of
-                 1  =>   1 | 2  =>   1 | 3  =>   1 | 4  =>   3
-               | 5  =>   1 | 6  =>   3 | 7  =>   1 | 8  =>   5
-               | 9  =>   3 | 10 =>   3 | 11 =>   9 | 12 =>   3
-               | 13 =>   1 | 14 =>   3 | 15 =>  19 | 16 =>  15
-               | 17 =>   1 | 18 =>   5 | 19 =>   1 | 20 =>   3
-               | 21 =>   9 | 22 =>   3 | 23 =>  15 | 24 =>   3
-               | 25 =>  39 | 26 =>   5 | 27 =>  39 | 28 =>  57
-               | 29 =>   3 | 30 =>  35 | 31 =>   1 | 32 =>   5
-               | 33 =>   9 | 34 =>  41 | 35 =>  31 | 36 =>   5
-               | 37 =>  25 | 38 =>  45 | 39 =>   7 | 40 =>  87
-               | 41 =>  21 | 42 =>  11 | 43 =>  57 | 44 =>  17
-               | 45 =>  55 | 46 =>  21 | 47 => 115 | 48 =>  59
-               | 49 =>  81 | 50 =>  27 | 51 => 129 | 52 =>  47
-               | 53 => 111 | 54 =>  33 | 55 =>  55 | 56 =>   5
-               | 57 =>  13 | 58 =>  27 | 59 =>  55 | 60 =>  93
-               | 61 =>   1 | 62 =>  57 | 63 =>  25 | 64 =>  59
+                   1 =>   1 |   2 =>   1 |   3 =>   1 |   4 =>   3
+               |   5 =>   1 |   6 =>   3 |   7 =>   1 |   8 =>   5
+               |   9 =>   3 |  10 =>   3 |  11 =>   9 |  12 =>   3
+               |  13 =>   1 |  14 =>   3 |  15 =>  19 |  16 =>  15
+               |  17 =>   1 |  18 =>   5 |  19 =>   1 |  20 =>   3
+               |  21 =>   9 |  22 =>   3 |  23 =>  15 |  24 =>   3
+               |  25 =>  39 |  26 =>   5 |  27 =>  39 |  28 =>  57
+               |  29 =>   3 |  30 =>  35 |  31 =>   1 |  32 =>   5
+               |  33 =>   9 |  34 =>  41 |  35 =>  31 |  36 =>   5
+               |  37 =>  25 |  38 =>  45 |  39 =>   7 |  40 =>  87
+               |  41 =>  21 |  42 =>  11 |  43 =>  57 |  44 =>  17
+               |  45 =>  55 |  46 =>  21 |  47 => 115 |  48 =>  59
+               |  49 =>  81 |  50 =>  27 |  51 => 129 |  52 =>  47
+               |  53 => 111 |  54 =>  33 |  55 =>  55 |  56 =>   5
+               |  57 =>  13 |  58 =>  27 |  59 =>  55 |  60 =>  93
+               |  61 =>   1 |  62 =>  57 |  63 =>  25 |  64 =>  59
+               |  65 =>  49 |  66 =>   5 |  67 =>  19 |  68 =>  23
+               |  69 =>  19 |  70 =>  35 |  71 => 231 |  72 =>  93
+               |  73 =>  69 |  74 =>  35 |  75 =>  97 |  76 =>  15
+               |  77 =>  33 |  78 =>  11 |  79 =>  67 |  80 =>  65
+               |  81 =>  51 |  82 =>  57 |  83 =>  55 |  84 =>  35
+               |  85 =>  19 |  86 =>  35 |  87 =>  67 |  88 => 299
+               |  89 =>   1 |  90 =>  33 |  91 =>  45 |  92 =>  83
+               |  93 =>  25 |  94 =>   3 |  95 =>  15 |  96 =>  17
+               |  97 => 141 |  98 =>  51 |  99 => 115 | 100 =>  15
+               | 101 =>  69 | 102 =>  33 | 103 =>  97 | 104 =>  17
+               | 105 =>  13 | 106 => 117 | 107 =>   1 | 108 =>  59
+               | 109 =>  31 | 110 =>  21 | 111 =>  37 | 112 =>  75
+               | 113 => 133 | 114 =>  11 | 115 =>  67 | 116 =>   3
+               | 117 => 279 | 118 =>   5 | 119 =>  69 | 120 => 119
+               | 121 =>  73 | 122 =>   3 | 123 =>  67 | 124 =>  59
+               | 125 =>   9 | 126 => 137 | 127 =>   1 | 128 => 159
                | _  => raise Fail ("largestPrime less than pow (2, "^
                                    BasisInt.toString wordSize^") not known"))
       val bounds = (fromInt 0, fromInt~1)