algebrite
Version:
Computer Algebra System in Coffeescript
20 lines (18 loc) • 325 B
text/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")