RosettaCodeData/Task/Factorial/Perl/factorial-7.pl

3 lines
56 B
Raku

use Math::Pari qw/ifact/;
say length( ifact(10000) );