Submission #891257

Source Code Expand

import Control.Applicative ((<$>), (<*>))
import Control.Monad
import Data.List

main :: IO ()
main = do
  solve <$> getLine >>= putStrLn

solve :: String -> String
solve ss = take 4 ss ++ (' ' :  drop 4 ss)

getl :: (String -> a) -> IO a
getl f = f <$> getLine

Submission Info

Submission Time
Task A - CODEFESTIVAL 2016
User ducktail
Language Haskell (GHC 7.10.3)
Score 100
Code Size 275 Byte
Status AC
Exec Time 3 ms
Memory 508 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 3 ms 380 KB
0_01.txt AC 3 ms 380 KB
0_02.txt AC 3 ms 508 KB
1_00.txt AC 3 ms 380 KB
1_01.txt AC 3 ms 380 KB
1_02.txt AC 3 ms 380 KB