20 lines
354 B
CoffeeScript
20 lines
354 B
CoffeeScript
test_mprime = ->
|
|
i = 0
|
|
k = 0
|
|
m = 0
|
|
t = 0
|
|
logout("test mprime\n")
|
|
k = 0
|
|
for i in [0...10000]
|
|
n = mint(i)
|
|
t = mprime(n)
|
|
if (i == primetab[k])
|
|
if (t == 0)
|
|
throw new Error("failed for prime number " + i)
|
|
k++
|
|
else if (t == 1)
|
|
throw new Error("failed for composite number " + i)
|
|
logout("ok\n")
|
|
|
|
#endif
|