Submission #1675436

Source Code Expand

main = do
    s <- getLine
    let len_s = (length s) - 8
    let ans = (take len_s s) ++ " " ++ (drop len_s s)
    putStrLn ans

Submission Info

Submission Time
Task A - CODEFESTIVAL 2016
User yk16
Language Haskell (GHC 7.10.3)
Score 100
Code Size 132 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 × 6
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt
Case Name Status Exec Time Memory
0_00.txt AC 2 ms 380 KB
0_01.txt AC 1 ms 380 KB
0_02.txt AC 2 ms 380 KB
1_00.txt AC 1 ms 380 KB
1_01.txt AC 2 ms 380 KB
1_02.txt AC 2 ms 380 KB