清一、一盃口！ そしてまさかの大三元 あれ？なんで大きさが違うん？無料で遊べるフラッシュの麻雀ゲーム「麻雀 Flash」 http://www.gamedesign.jp/flash/mahjong/mahjong.html

昨日コミットした平和の判定が間違っているようだ。 123 234 *** *** ** で2が上がり牌の時、123 のカンチャンではないので これは平和は成立しないといけない。 また 123 *** *** *** 11 で1が上がり牌の時、頭であがったわけではないので以下略。さらに **…

悩んだときは風呂に入るべきである！ ということで寝る前に書き殴っておく。 sub is_pinhu { # 面子以外にオタ風は何か、上がり牌は何かの情報が必要 my ($mentsu, ...) = @_; 順子 = である。 頭; 両面待ち=でない foreach my $line ( @$mentsu ) { my ($fi…

わかってたことだが役判定は結構なパターンがあるので チェックが必要かしら。Test::Moreなどを調べ中。 Test::More 真偽値、数値や文字列の比較を行う関数 - Perl入門〜サンプルコードによるPerl入門〜 http://d.hatena.ne.jp/perlcodesample/20090221/1234…

麻雀の作り方（あがり判定） http://www5f.biglobe.ne.jp/~kenmo/program/majang/agari/agari.html を元に役判定まわりを実装してみたが 111 222 333 345 55 の時、平和が判定しそこねるという問題を考え中。 （四暗刻を無視してロン上がりしたときの場合） …

m.pl - majan-perl - Project Hosting on Google Code http://code.google.com/p/majan-perl/source/browse/trunk/m.pl 11 -> 13 へ。ツモ切りする場合は $ perl m.pl sute E 14 g.pl - majan-perl - Project Hosting on Google Code http://code.google.com…

local $\ = "\n"; my $a = "m2m3m3m4m4m5m5m5m5m6m6m6m6m7"; my %hash; foreach my $hai ( $a =~ /\w\d/g ) { if (exists $hash{$hai}) { $hash{$hai}++; } else{ $hash{$hai}=1; } } # 頭候補さがし my @heads; while (my($k, $v) = each %hash) { print "$…

googole code - subversion 管理に入れてみた。 Source Checkout - majan-perl - Project Hosting on Google Code http://code.google.com/p/majan-perl/source/checkout本体 http://code.google.com/p/majan-perl/source/browse/trunk/m.plCGI用インターフ…