4 lines
92 B
Perl
4 lines
92 B
Perl
|
use ntheory qw/znorder/;
|
||
|
|
say znorder(54, 100001);
|
||
|
|
use bigint; say znorder(11, 1 + 10**100);
|