読者です 読者をやめる 読者になる 読者になる

初代Masteries

きっとモヒカンにもなれないお前たちに告げる!!!

Project Euler - Problem 6〜8

いっぱい解いちゃったのでいっぱい載せちゃいます.

Problem 6

1から100の二乗の和と, 1から100の和の二乗の差を求める問題.

use strict;
use warnings;

my $sum_square;
my $square_sum;

for (1..100) {
    $square_sum += $_ ** 2;
    $sum_square += $_;
}

$sum_square = $sum_square ** 2;

print "$sum_square - $square_sum = " . ($sum_square - $square_sum) . "\n";

素直に実装. $square_sumや$sum_squareという変数名がとてつもなくキモい.

Problem 7

10001番目の素数を求める問題.

use strict;
use warnings;
use bigint;

my $n = 0;
my $prime;

do {
    $n++;
    $prime++ if is_prime($n);
} while ($prime != 10001);

print "$n\n";

sub is_prime {
    my $n = shift;

    if ($n < 2) {
        return 0;
    } elsif ($n == 2) {
        return 1;
    }

    if ($n % 2 == 0) {
        return 0;
    }

    for (my $i = 3; $i * $i <= $n; $i += 2) {
        if ($n % $i == 0) {
            return 0;
        }
    }
    return 1;
}

1つ1つ素数を判定しているので非常に遅い...

Problem 8

use strict;
use warnings;

my @n = split //, '7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450';

my $max = 0;
my $point;

for my $i (0..995)  {
    my $mul = 1;
    $mul *= $n[$_] for ($i..$i + 4);

    if ($max < $mul) {
        $max = $mul;
        $point = $i;
    }
}

print "$max ($point)\n";

「split //, '文字列'」で, 文字列を1文字ごとに区切って配列にしてくれるので, これを利用して計算しています.