k01ken’s b10g

He110 W0r1d!

2017-10-14から1日間の記事一覧

Perlでエラトステネスの篩(ふるい)を用いる。

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

Perlでユークリッドの互助法を用いる。

開発環境はWindows 7 Professional(32bit)+Perl 5.24.0。ユークリッドの互助法とは、2つの自然数の最大公約数を求めるアルゴリズムです。aとbの2つの自然数があって(a≧b)、aをbで割り、出現した余りをxとします。今度は、bをxで割り、出現した余りをx´としま…