5 lines
182 B
Perl
5 lines
182 B
Perl
use ntheory qw(pn_primorial);
|
|
|
|
say "First ten primorials: ", join ", ", map { pn_primorial($_) } 0..9;
|
|
|
|
say "primorial(10^$_) has ".(length pn_primorial(10**$_))." digits" for 1..6;
|