結果
問題 | No.264 じゃんけん |
ユーザー |
|
提出日時 | 2015-08-07 22:36:32 |
言語 | Haskell (9.10.1) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 459 bytes |
コンパイル時間 | 5,939 ms |
コンパイル使用メモリ | 172,032 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-07-18 05:11:00 |
合計ジャッジ時間 | 6,380 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 9 |
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
importControl.Applicativewon = "Won"lost = "Lost"draw = "Drew"-- ぐー, ちょき, ぱーをそれぞれ 0, 1, 2とし、1つ目に自分のが2つ目に相手のが与えられます。solve::Int->Int->Stringsolve 0 1 = wonsolve 1 2 = wonsolve 2 0 = wonsolve x y | x == y = drawsolve _ _ = lostmain::IO()main = do[n,k] <- (map read . words) <$> getLineputStrLn $ solve n k