24 lines
586 B
Perl
24 lines
586 B
Perl
|
use 5.30.3;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
die "No argument received." unless scalar @ARGV;
|
||
|
|
my $n = $ARGV[0];
|
||
|
|
die "That does not look like like an integer positive number." unless $n =~ /^\d+$/;
|
||
|
|
|
||
|
|
my @prime_list;
|
||
|
|
for my $current_number ( 2 .. $n ) {
|
||
|
|
my $is_prime = 1;
|
||
|
|
for my $prime ( @prime_list ) {
|
||
|
|
unless ($current_number % $prime) {
|
||
|
|
$is_prime = 0;
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
push @prime_list, $current_number if $is_prime;
|
||
|
|
}
|
||
|
|
|
||
|
|
say 'Your primes are: ' . (join ', ', @prime_list) . '.';
|
||
|
|
say 'The number of primes is: ' . ( scalar @prime_list ) . '.';
|