結果

問題 No.227 簡単ポーカー
ユーザー ishowta
提出日時 2017-11-13 12:37:47
言語 Nim
(2.2.0)
結果
RE  
(最新)
AC  
(最初)
実行時間 -
コード長 962 bytes
コンパイル時間 3,602 ms
コンパイル使用メモリ 76,288 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-06-30 03:23:38
合計ジャッジ時間 4,190 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other RE * 14
権限があれば一括ダウンロードができます
コンパイルメッセージ
/home/judge/data/code/Main.nim(1, 95) Warning: Use the new 'sugar' module instead; future is deprecated [Deprecated]

ソースコード

diff # 

import system, algorithm, tables, sets, lists, deques, intsets, critbits, sequtils, strutils, future
proc `?`[T](tf:bool,p:proc(r:bool):T):T = p(tf)
proc `|`[T](lhs,rhs:T):proc = (proc(r:bool):T = (if r: lhs else: rhs))
proc numin():auto = readLine(stdin).split().map(parseInt)
proc strin():auto = readLine(stdin).split()
proc sort[T](a: openArray[T], order:SortOrder=Ascending):seq[T] = sorted(a, system.cmp, order)
proc group[T](v:seq[T]):seq[ref seq[T]] =
    var list = newSeq[ref seq[T]](0)
    var st = 0
    for i in 0..v.len-1:
        if v[i] != v[i+1]:
            var sec = new(seq[T])
            sec[] = v[st..i]
            list.add(sec)
            st = i+1
    return list

var cv = numin().sort().group().map(x => x[].len).sort().reversed()
if cv[0] == 3 and cv[1] == 2:
    echo "FULL HOUSE"
elif cv[0] == 3:
    echo "THREE CARD"
elif cv[0] == 2 and cv[1] == 2:
    echo "TWO PAIR"
elif cv[0] == 2:
    echo "ONE PAIR"
else:
    echo "NO HAND"
0