小町算
Posted feedbacks - Perl
アルゴリズム的には一番月並み。MacBook Pro 2.33GHz で12秒。
＃あ、関数名が微妙に
Dan the Perl Monger
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #!/usr/local/bin/perl
use strict;
use warnings;
use B::Deparse;
sub komanechi {
for my $i ( 1 .. 5**8 ) {
my $formula = 1;
for my $n ( 2 .. 9 ) {
$formula .= ( '', qw{+ - * /} )[ $i % 5 ] . $n;
$i /= 5;
}
next if 100 != eval $formula;
print "$formula\n";
}
}
komanechi;
|
dpp
#4509()
Rating0/2=0.00
古典的なパズルである小町算を解くプログラムを作成してください。
小町算とは：
1□2□3□4□5□6□7□8□9＝100
四角の中に、空白、＋、－、×、÷のいずれかを一つ入れ、等式が成り立つようにするパズルです。
解答例：
1－2－3＋4×56÷7＋8×9＝100
1＋234×5÷6－7－89＝100
参考： http://ja.wikipedia.org/wiki/%E5%B0%8F%E7%94%BA%E7%AE%97
手元で20数行ほどのPythonスクリプトを書いてみたところ、101個の解答が得られました。
[ reply ]