Submission #1224504
Source Code Expand
import Control.Monad f c = map (\x -> if x == '?' then c else x) g t s | x /= y || x == EQ || y == EQ = (0,1) | x == LT = (0,0) | x == GT = (1,0) where x = t `compare` f 'a' s y = t `compare` f 'z' s h (a,b) (c,d) = (a+c,b+d) main = do n <- readLn ss <- replicateM n getLine t <- getLine let (x,y) = foldl1 h $ map (g t) ss putStrLn $ unwords $ map show [x+1..x+y+1]
Submission Info
Submission Time | |
---|---|
Task | A - Atcoder Handles |
User | hillpeople |
Language | Haskell (GHC 7.10.3) |
Score | 250 |
Code Size | 407 Byte |
Status | AC |
Exec Time | 17 ms |
Memory | 6780 KB |
Judge Result
Set Name | Subtask1 | Subtask2 | ||||
---|---|---|---|---|---|---|
Score / Max Score | 130 / 130 | 120 / 120 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Subtask1 | sub1_in1.txt, sub1_in2.txt, sub1_in3.txt |
Subtask2 | sub1_in1.txt, sub1_in2.txt, sub1_in3.txt, sub2_in1.txt, sub2_in2.txt, sub2_in3.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sub1_in1.txt | AC | 2 ms | 636 KB |
sub1_in2.txt | AC | 2 ms | 1148 KB |
sub1_in3.txt | AC | 2 ms | 1148 KB |
sub2_in1.txt | AC | 2 ms | 764 KB |
sub2_in2.txt | AC | 9 ms | 3836 KB |
sub2_in3.txt | AC | 17 ms | 6780 KB |