Problem 96 auf projecteuler.net

Veröffentlicht am 19. April 2015

von admin

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";

Problem 29 auf projecteuler.net

Veröffentlicht am 14. April 2015

von admin

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";

Problem 92 auf projecteuler.net

Veröffentlicht am 14. April 2015

von admin

Hier ist meine Lösung zu Problem 92 auf projecteuler.net. Die Lösung ist mittels der Programmiersprache C umgesetzt und kann mittels des gcc mit diesem Befehl kompiliert werden:

gcc -O3 -Wall Problem92.c -lm -o Problem92

Auf meinem Rechner braucht das Skript nur eine sehr kurze Zeit zum Berechnen:
real 0m0.639s user 0m0.638s sys 0m0.000s

Der Code schaut so aus:

#include <stdio.h>

typedef unsigned int uint;

__inline static uint square(uint x) {
    return x * x;
}

__inline static uint solve(uint num) {
    register uint res = 0, val = num;

    while(val > 0) {
        res += square(val % 10);
        val /= 10;
    }

    return res;
}

int main() {
    typedef enum { false, true } bool;
    uint result = 0, i = 0, tmp = 0;

    for(i = 10000000; i != 0; i--) {
        tmp = solve(i);
        bool run = true;

        while(run) {
            switch(tmp) {
                case 1: run = false; break;
                case 89: result++; run = false; break;
                default: tmp = solve(tmp);
            }
        }
    }
    printf("Result: %i", result);
    return 0;
}

#include <stdio.h>

typedef unsigned int uint;

__inline static uint square(uint x) {

return x * x;

}

__inline static uint solve(uint num) {

while(val > 0) {

res += square(val % 10);

val /= 10;

}

return res;

}

int main() {

typedef enum { false, true } bool;

uint result = 0, i = 0, tmp = 0;

for(i = 10000000; i != 0; i--) {

tmp = solve(i);

bool run = true;

while(run) {

switch(tmp) {

case 1: run = false; break;

case 89: result++; run = false; break;

default: tmp = solve(tmp);

}

printf("Result: %i", result);

return 0;

}

mborm.net

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

Kategorie: projecteuler

Problem 96 auf projecteuler.net

Problem 29 auf projecteuler.net

Problem 92 auf projecteuler.net