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
AC × 3
AC × 6
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