1 USING: kernel math.primes.miller-rabin sequences tools.test ;
2 IN: math.primes.miller-rabin.tests
4 { f } [ 473155932665450549999756893736999469773678960651272093993257221235459777950185377130233556540099119926369437865330559863 miller-rabin ] unit-test
5 { t } [ 2 miller-rabin ] unit-test
6 { t } [ 3 miller-rabin ] unit-test
7 { f } [ 36 miller-rabin ] unit-test
8 { t } [ 37 miller-rabin ] unit-test
9 { t } [ 2135623355842621559 miller-rabin ] unit-test
11 { f } [ 1000 <iota> [ drop 15 miller-rabin ] any? ] unit-test