結果

問題 No.264 じゃんけん
ユーザー vain0vain0
提出日時 2015-08-07 23:45:06
言語 Haskell
(9.10.1)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 612 bytes
コンパイル時間 162 ms
コンパイル使用メモリ 155,648 KB
最終ジャッジ日時 2024-07-18 05:25:56
合計ジャッジ時間 544 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )

Main.hs:4:1: error: [GHC-87110]
    Could not load module ‘Data.Map.Strict’.
    It is a member of the hidden package ‘containers-0.6.8’.
    Use -v to see a list of the files searched for.
  |
4 | import qualified Data.Map.Strict as Map
  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ソースコード

diff # 

import Control.Monad
import Control.Applicative
import Data.Traversable (sequenceA)
import qualified Data.Map.Strict as Map
import Data.Bits
import Data.Char
import Data.Ix
import Data.Array.IO
import Data.Array.ST
import Data.Array.Unboxed
import Data.Array.IArray
import Data.Array.Base(unsafeRead, unsafeWrite)
import Data.Maybe
import Text.Printf
import System.IO

readInt :: String -> Int
readInt = read

rsp i j
	| i == (weak j)   = "Won"
	| j == (weak i)   = "Lost"
	| otherwise       = "Drew"
	where
		weak k = (k + 2) `mod` 3

main = do
	[n, k] <- fmap (map readInt . words) getLine
	putStrLn $ rsp n k
0