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
|