RosettaCodeData/Task/Multiplicative-order/Perl/multiplicative-order-1.pl
2015-02-20 00:35:01 -05:00

3 lines
92 B
Raku

use ntheory qw/znorder/;
say znorder(54, 100001);
use bigint; say znorder(11, 1 + 10**100);