「賢者の噴水は俺たちに任せろ」の周辺ツール

※この記事は,ルネサンス以前に書かれた記事です.ルネサンス後に通用する場合は十分ご注意ください※

GQ3vH2の開発準備を進めております.

で,とりあえず,次回表(解法テーブル)のチェックツールを書いてみました.まだ外枠だけですけどね.

全256通りの組み合わせについて,一手試しただけのコードです.これを一手,二手・・・とループを回すように書き換えれば出来上がりです.

でも,まあ,外枠できたし,もう眠いから今日はここまで.

ちなみに,言語はperlです.perlがお嫌いな方は,rubyでもphpでもお好きな言語に移植して下さい.

ちなみに,次郎の開発環境はStrawberry Perl 5.12.2.0です.一時期Active Perlを使っていたこともありましたが,Strawberry Perlのサイトを見てからStrawberry Perlに乗り換えました.すっごく素敵で美味しそうなサイトですので,まだ見たことない人は,ぜひご覧ください.

つか,普段はperlすら使わないで,sedとgawkで足りてます.勉強しろよ>俺

現在の処理時間は,ストップウォッチで計ったわけじゃありませんが,0.5秒未満でしょうか.全部の処理を書き足しても,3秒を超えることはないかな?って具合です.やっつけで書いたコードですが,手を加えて「上手なプログラム」にする必要もなさそうですね.

ではおやすみなさい.

my %nexthand, @ans;
#次回表の読み込みopen(IN,"< nexthand.txt");
while(my $line = ) {
    chomp($line);
    my ($pat,$hand)=split(/,/,$line,2);
    $pat =~ s/-//g;
    $nexthand{$pat}=$hand;
}
#全解答の作成
for ($i=1;$i<5;$i++) {
    for ($j=1;$j<5;$j++) {
        for ($k=1;$k<5;$k++) {
            for ($l=1;$l<5;$l++) {
                push(@ans,"$i$j$k$l");
            }
        }
    }
}
foreach ( @ans ) {
    # まだ一手のみ    $pat='p';
    $nh=&much($pat,$_);
    $pat="$pat$nh";
    print "$pat,$_\n";
}
exit;
sub much() {
    #パターンから配置を取得し,解と比較してヒントを得る.
    my ($pat,$ans)=@_;
    my $hit=0, $blow=0, $nh=$nexthand{$pat};
    for (0..3) {
        if ( substr($ans,$_,1) eq substr($nh,$_,1) ) {
            $hit++;
            #ブローで重複カウントしないように,ヒットでカウントしたものを
            #無関係の文字に置き換える
            substr($ans,$_,1,'8');
            substr($nh,$_,1,'9');
        }
    }
    for ($i=0;$i<4;$i++) {
        for ($j=0;$j<4;$j++) {
            if ( substr($ans,$i,1) eq substr($nh,$j,1) ) {
                $blow++;
                last;
            }
        }
    }
    return "$hit$blow";
}
広告

コメントを書く:匿名のコメントも歓迎しますが,名前欄が空欄だと自動的に承認待ちになってしまいます.名前欄には,なるべく文字を入れて下さい.

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中

%d人のブロガーが「いいね」をつけました。