ねむいです。 #!/usr/bin/env perl use strict; use warnings; my @array = qw/1 3 5 11 12 13 17 22 25 28/; print bs($_, \@array), "\n" for qw/25 4 29/; if(@ARGV){ print "search for ", join(', ', @array), "\n"; for my $n (@ARGV){ printf "%d is …

wikipediaの説明を元に書いてみた。 #!/usr/bin/env perl use strict; use warnings; my $x = 100; my @numbers = (2 .. $x); my @prime_numbers; while(1){ if($numbers[0] > sqrt $x){ push @prime_numbers, @numbers; last; } my $number = shift @number…