3 lines
90 B
Perl
3 lines
90 B
Perl
use Math::ModInt qw(mod);
|
|
sub f { my $x = shift; $x**100 + $x + 1 };
|
|
print f mod(10, 13);
|