フォロー
テキスト版(1/2)
----------
#!/usr/bin/env perl
use v5.26;
use utf8;
use warnings;
use strict;
use Encode::Argv;
use Encode::Locale;
use feature "say";
use open IO => ":utf8";
binmode STDOUT, ":encoding(console_out)";
binmode STDERR, ":encoding(console_out)";
@ ARGV or die "素数の範囲を指定してない";
say "素数の範囲 $ARGV[0] まで";
テキスト版(2/2)
----------
# 添字と同じ値を要素にする
my @ sosuu = (0 .. $ARGV[0]);
say "@ sosuu";
# ０と１は素数でない、未定義値を入れる
$_ = undef for @ sosuu[0, 1];
for (@ sosuu) {
if (defined) {
my $i = $_;
for (my $j = 2; $i * $j < @ sosuu; $j++) {
$sosuu[$i * $j] = undef;
}
}
}
@ sosuu = grep {defined} @ sosuu;
say "@ sosuu";