Submission #1243792

Source Code Expand

solve :: [String] -> String
solve (s:_) = map (\x -> if ',' == x then ' ' else x) s

main = putStrLn . solve . words =<< getLine

Submission Info

Submission Time
Task A - Haiku
User nyashiki
Language Haskell (GHC 7.10.3)
Score 100
Code Size 131 Byte
Status AC
Exec Time 2 ms
Memory 380 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 10
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 380 KB
sample_02.txt AC 1 ms 380 KB
sample_03.txt AC 1 ms 380 KB
subtask_1_01.txt AC 2 ms 380 KB
subtask_1_02.txt AC 1 ms 380 KB
subtask_1_03.txt AC 1 ms 380 KB
subtask_1_04.txt AC 1 ms 380 KB
subtask_1_05.txt AC 2 ms 380 KB
subtask_1_06.txt AC 2 ms 380 KB
subtask_1_07.txt AC 2 ms 380 KB