| 1 | test_mprime = ->
|
| 2 | i = 0
|
| 3 | k = 0
|
| 4 | m = 0
|
| 5 | t = 0
|
| 6 | logout("test mprime\n")
|
| 7 | k = 0
|
| 8 | for i in [0...10000]
|
| 9 | n = mint(i)
|
| 10 | t = mprime(n)
|
| 11 | if (i == primetab[k])
|
| 12 | if (t == 0)
|
| 13 | throw new Error("failed for prime number " + i)
|
| 14 | k++
|
| 15 | else if (t == 1)
|
| 16 | throw new Error("failed for composite number " + i)
|
| 17 | logout("ok\n")
|
| 18 |
|
| 19 | #endif
|