開発環境はWindows 7 Professional(32bit)+Perl 5.24.0。 use strict; use warnings; my @arr1 = qw(30 20 60 100 90 10 40 80); my @arr2 = qw(20 50 110 1200 40 100); my %count; my @unique; $count{$_}++ for(@arr1,@arr2); # (20,40,100) - 重複する値…

開発環境はWindows 7 Professional(32bit)+Perl 5.24.0。配列の要素をシャッフルした配列を返すプログラムを作ります。 今回は、各要素をトランプに見立てて、53個用意して、それをシャッフルするプログラムにします。 use strict; use warnings; my @trump …

開発環境はWindows 7 Professional(32bit)+Perl 5.24.0。エラトステネスの篩(ふるい)とは素数を求めるアルゴリズムです。素数を入れる配列を用意して、最初は無条件に2を入れて、次に、現在の値に対して、素数を入れた配列の要素で次々と割っていき、1回も割…

開発環境はWindows 7 Professional(32bit)+Perl 5.24.0。 相関係数は、2つのデータの共分散を、各データの標準偏差の掛け算で割って求めます。調べたいデータのまとまりを、それぞれ配列に入れて、それぞれに対して、共分散と、標準偏差を求めています。下記…