RosettaCodeData/Task/Multiplicative-order/Perl/multiplicative-order-1.pl
2023-07-01 13:44:08 -04:00

3 lines
92 B
Raku

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