1 | test_mroot = ->
|
2 | i = 0
|
3 | j = 0
|
4 | mem = 0
|
5 |
|
6 | logout("testing mroot\n")
|
7 |
|
8 |
|
9 |
|
10 |
|
11 | for i in [0...10]
|
12 | a = mint(i)
|
13 | for j in [1...10]
|
14 |
|
15 | b = mpow(a, j)
|
16 | c = mroot(b, j)
|
17 | if (c == 0 || mcmp(a, c) != 0)
|
18 | debugger
|
19 | throw new Error("failed test_mroot")
|
20 |
|
21 | logout(" ...mroot small numbers ok\n")
|
22 |
|
23 | a = mint(12345)
|
24 |
|
25 | for i in [1...10]
|
26 |
|
27 | b = mpow(a, i)
|
28 | c = mroot(b, i)
|
29 | if (c == 0 || mcmp(a, c) != 0)
|
30 | throw new Error("failed")
|
31 |
|
32 |
|
33 | logout(" ...mroot big numbers ok\n")
|
34 | logout("ok")
|