Submission #2243157
Source Code Expand
import Data.Maybe import Data.List main :: IO () main = do input <- getContents putStrLn $ trim (solve (trim input)) --処理 solve :: String -> String solve s | a > b = "Alice" | b > a = "Bob" | otherwise = "Draw" where [a, b] = fmap read (words s) :: [Int] x = if a == 1 then 100 else a y = if b == 1 then 100 else b trimHead :: String -> String trimHead = dropWhile (\s -> isJust (elemIndex s [' ', '\t', '\n', '\r'])) trim :: String -> String trim = reverse . trimHead . reverse . trimHead
Submission Info
Submission Time | |
---|---|
Task | A - One Card Poker |
User | kgtkr |
Language | Haskell (GHC 7.10.3) |
Score | 0 |
Code Size | 564 Byte |
Status | WA |
Exec Time | 1 ms |
Memory | 508 KB |
Judge Result
Set Name | Sample | All | ||||||||
---|---|---|---|---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 0 / 100 | ||||||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt, sample_03.txt |
All | sample_01.txt, sample_02.txt, sample_03.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 1 ms | 508 KB |
sample_02.txt | AC | 1 ms | 508 KB |
sample_03.txt | WA | 1 ms | 380 KB |
subtask_1_01.txt | AC | 1 ms | 508 KB |
subtask_1_02.txt | AC | 1 ms | 380 KB |
subtask_1_03.txt | WA | 1 ms | 380 KB |
subtask_1_04.txt | AC | 1 ms | 380 KB |
subtask_1_05.txt | AC | 1 ms | 380 KB |
subtask_1_06.txt | AC | 1 ms | 380 KB |
subtask_1_07.txt | AC | 1 ms | 508 KB |