mborm.net

Problem 96 auf projecteuler.netHier 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:
Perl
#!/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";

				
					
				1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

						#!/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";

					

			
 
Veröffentlicht am 19. April 2015 von admin in Perl, Programmierung, projecteuler
Problem 29 auf projecteuler.netDie 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:
Perl
#!/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";

				
					
				1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

						#!/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";

					

			
 
Veröffentlicht am 14. April 2015 von admin in Perl, Programmierung, projecteuler

		Neueste Beiträge
		
					apache2 TLS-Config für Qualys Lab Bestnote mit Server Hardening
									

					TEDP – The Energy Data Project
									

					GPU Benchmark integriert
									

					Neue Benchmark Version
									

					Eigene API für die luftdaten.info Wetterstation
									


		
KategorienAllgemein
Bash
C
Hardware
IT-Sicherheit
Java
Netzwerk
Perl
PHP
Programmierung
projecteuler
Python
Server
ArchivJanuar 2021
November 2020
Oktober 2019
September 2019
März 2019
Juli 2018
Juni 2018
August 2017
Mai 2016
Dezember 2015
Oktober 2015
August 2015
Juli 2015
Juni 2015
Mai 2015
April 2015
mborm.net

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

Problem 96 auf projecteuler.net

Problem 29 auf projecteuler.net

Neueste Beiträge

Kategorien

Archiv
