| 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")
|