Perl – mborm.net

Hier meine Lösung zu Problem 96 auf projecteuler.net.

Für die Lösung des Problems habe ich das Perl-Module „Games::Sudoku::Solver“ benutzt, welches hier heruntergeladen werden kann.

Die schnellste Lösung ist es nicht, aber immerhin löst sie das Problem:

Result: 24702 !

real 0m9.220s user 0m9.214s sys 0m0.000s

So schaut die Lösung aus:

#!/usr/bin/env perl

use strict;
use warnings;
use Games::Sudoku::Solver qw(:Minimal set_solution_max);

my $fh;
my $sudokus = {};
my $current_idx;
my $solution;

open $fh, "sudoku.txt" or die($!);

while(my $line = <$fh>) {
    chomp($line);
    if($line =~ m/^Grid (\d+)/) {
        $current_idx = $1;
        $sudokus->{$current_idx} = [];
        next;
    }
    push $sudokus->{$current_idx}, split '', $line;
}

print "Calculate ...\n";

foreach my $idx (keys $sudokus) {
    my @temp;
    my @result;

    sudoku_set \@temp, \@{$sudokus->{$idx}};
    set_solution_max 1;
    sudoku_solve \@temp, \@result;

    $solution += 100 * $result[0][0][0] + 10 * $result[0][0][1] + $result[0][0][2];
}

print "Result: $solution !\n";

#!/usr/bin/env perl

use strict;

use warnings;

use Games::Sudoku::Solver qw(:Minimal set_solution_max);

my $fh;

my $sudokus = {};

my $current_idx;

my $solution;

open $fh, "sudoku.txt" or die($!);

while(my $line = <$fh>) {

chomp($line);

if($line =~ m/^Grid (\d+)/) {

$current_idx = $1;

$sudokus->{$current_idx} = [];

next;

}

push $sudokus->{$current_idx}, split '', $line;

}

print "Calculate ...\n";

foreach my $idx (keys $sudokus) {

my @temp;

my @result;

sudoku_set \@temp, \@{$sudokus->{$idx}};

set_solution_max 1;

sudoku_solve \@temp, \@result;

$solution += 100 * $result[0][0][0] + 10 * $result[0][0][1] + $result[0][0][2];

}

print "Result: $solution !\n";

Die Lösung zu Problem 29 war extrem einfach.

Diese Lösung habe ich in der Skriptsprache Perl erstellt – die Rechengeschwindigkeit ist da allerdings etwas niedriger aber auch nicht schlecht:

real 0m1.817s user 0m1.812s sys 0m0.004s

Hier der Code:

#!/usr/bin/env perl

use strict;
use warnings;

my @nums = ();

foreach my $a (2..100) {
    foreach my $b (2..100) {
        my $num = $a ** $b;
        push @nums, $num if !grep {$num == $_} @nums;
    }
}

print "Result: ", scalar @nums, "\n";

#!/usr/bin/env perl

use strict;

use warnings;

my @nums = ();

foreach my $a (2..100) {

foreach my $b (2..100) {

my $num = $a ** $b;

push @nums, $num if !grep {$num == $_} @nums;

}

print "Result: ", scalar @nums, "\n";

mborm.net

Ein Computerprogramm tut was Du schreibst, nicht was Du willst.

Kategorie: Perl

Problem 96 auf projecteuler.net

Problem 29 auf projecteuler.net