2015/04/09

「有人會這個嗎?好難哦」才怪!

「有人會這個嗎?好難哦」才怪!

網上看到這鍋:
"Fill in number 1 to 9, without repetition."

職業病發:

#!/usr/bin/perl
use List::Permutor;

my $permutor = List::Permutor->new( 1..9 );
while ( my @permutation = $permutor->next() ) {
    $attempt++;
    $v12 = $permutation[0] . $permutation[1];
    $v3 = $permutation[2];
    $v45 = $permutation[3] . $permutation[4];
    $v67 = $permutation[5] . $permutation[6];
    $v89 = $permutation[7] . $permutation[8];
    if ( $v12 * $v3 == $v45 ) {
       if ( $v45 + $v67 == $v89 ) { last; }
    }
}

print "An answer found at attempt \#$attempt:\n";
print "\n";
print "  $v12\n";
print "x  $v3\n";
print "----\n";
print "  $v45\n";
print "+ $v67\n";
print "----\n";
print "  $v89\n";

$ time perl soudoku.pl 
An answer found at attempt #27076:

  17
x  4
----
  68
+ 25
----
  93

real 0m0.266s
user 0m0.239s
sys 0m0.020s

好啦!零北自己知道自己很沒品啦……

No comments:

Post a Comment

Related Posts with Thumbnails

Popular Posts (All Time)/滿堂紅

Popular Posts (7 Days)/七日紅