Adding a modular-expt test.

This commit is contained in:
Alex Shinn 2014-02-01 23:32:16 +09:00
parent a2e4f1dc96
commit d16cbc7e2b

View file

@ -82,4 +82,9 @@
(test #f (probable-prime? 4611686020243253183)) (test #f (probable-prime? 4611686020243253183))
(test #f (probable-prime? 4611686020243253247)) (test #f (probable-prime? 4611686020243253247))
(test 5
(modular-expt 7670626353261554806
5772301760555853353
(* 2936546443 3213384203)))
(test-end) (test-end)