結果
問題 |
No.227 簡単ポーカー
|
ユーザー |
|
提出日時 | 2016-10-23 15:33:38 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 4 ms / 5,000 ms |
コード長 | 745 bytes |
コンパイル時間 | 196 ms |
コンパイル使用メモリ | 5,504 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-11-24 01:55:23 |
合計ジャッジ時間 | 794 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 14 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
sub trans { my ($state, $stack_size) = @_; if ($state eq "NO HAND" && $stack_size == 2) { return "ONE PAIR"; } elsif ($state eq "NO HAND" && $stack_size == 3) { return "THREE CARD"; } elsif ($state eq "ONE PAIR" && $stack_size == 3) { return "FULL HOUSE"; } elsif ($state eq "ONE PAIR" && $stack_size == 2) { return "TWO PAIR"; } elsif ($state eq "THREE CARD" && $stack_size == 2) { return "FULL HOUSE"; } else { return $state; } } my @A = sort { $a <=> $b } map { $_ + 0 } split ' ', <>; my $state = "NO HAND"; my @stack = (); foreach (@A) { if ($#stack >= 0 && $_ != $stack[$#stack]) { $state = trans($state, $#stack+1); @stack = (); } push @stack, $_; } print(trans($state, $#stack+1) . "\n");