Submission #1128580

Source Code Expand

import Control.Monad

main :: IO ()
main = do
  [n, m] <- map (read :: String -> Int) . words <$> getLine
  strs <- replicateM n getLine
  mapM_ putStrLn $ solve n strs

solve :: Int -> [String] -> [String]
solve n ss = foldr (\a b -> a : a: b) [] ss

Submission Info

Submission Time
Task B - Thin
User nmjiri
Language Haskell (GHC 7.10.3)
Score 200
Code Size 259 Byte
Status AC
Exec Time 3 ms
Memory 1276 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 13
Set Name Test Cases
Sample subtask0_0.txt, subtask0_1.txt, subtask0_2.txt
All subtask0_0.txt, subtask0_1.txt, subtask0_2.txt, subtask1_0.txt, subtask1_1.txt, subtask1_2.txt, subtask1_3.txt, subtask1_4.txt, subtask1_5.txt, subtask1_6.txt, subtask1_7.txt, subtask1_8.txt, subtask1_9.txt
Case Name Status Exec Time Memory
subtask0_0.txt AC 1 ms 508 KB
subtask0_1.txt AC 1 ms 508 KB
subtask0_2.txt AC 2 ms 508 KB
subtask1_0.txt AC 2 ms 1148 KB
subtask1_1.txt AC 2 ms 1148 KB
subtask1_2.txt AC 3 ms 1276 KB
subtask1_3.txt AC 2 ms 1148 KB
subtask1_4.txt AC 2 ms 1148 KB
subtask1_5.txt AC 2 ms 1148 KB
subtask1_6.txt AC 3 ms 1276 KB
subtask1_7.txt AC 2 ms 1148 KB
subtask1_8.txt AC 2 ms 1148 KB
subtask1_9.txt AC 2 ms 1148 KB