Submission #11452636

Source Code Expand

import           Control.Monad
import qualified Data.Sequence as Seq

main = do
  s <- Seq.fromList <$> getLine

  let solve s res | Seq.length s < 2 = res
                  | otherwise =
                    let l Seq.:< ss = Seq.viewl s
                        ss' Seq.:> r = Seq.viewr ss
                    in
                      if l == r
                      then solve ss' res
                      else case (l, r) of
                        ('x', _) -> solve (s Seq.|> 'x') (res+1)
                        (_, 'x') -> solve ('x' Seq.<| s) (res+1)
                        _        -> -1

  print $ solve s 0

Submission Info

Submission Time
Task C - Inserting 'x'
User unnohideyuki
Language Haskell (GHC 7.10.3)
Score 400
Code Size 635 Byte
Status AC
Exec Time 34 ms
Memory 8188 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 4
AC × 33
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt, 0_03.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 0_03.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 1_04.txt, 1_05.txt, 1_06.txt, 1_07.txt, 1_08.txt, 1_09.txt, 1_10.txt, 1_11.txt, 1_12.txt, 1_13.txt, 1_14.txt, 1_15.txt, 1_16.txt, 1_17.txt, 1_18.txt, 1_19.txt, 1_20.txt, 1_21.txt, 1_22.txt, 1_23.txt, 1_24.txt, 1_25.txt, 1_26.txt, 1_27.txt, 1_28.txt
Case Name Status Exec Time Memory
0_00.txt AC 2 ms 380 KiB
0_01.txt AC 2 ms 380 KiB
0_02.txt AC 2 ms 380 KiB
0_03.txt AC 2 ms 380 KiB
1_00.txt AC 1 ms 380 KiB
1_01.txt AC 2 ms 380 KiB
1_02.txt AC 2 ms 380 KiB
1_03.txt AC 2 ms 380 KiB
1_04.txt AC 1 ms 380 KiB
1_05.txt AC 2 ms 380 KiB
1_06.txt AC 21 ms 6908 KiB
1_07.txt AC 21 ms 6908 KiB
1_08.txt AC 21 ms 6908 KiB
1_09.txt AC 21 ms 6908 KiB
1_10.txt AC 33 ms 7548 KiB
1_11.txt AC 34 ms 8188 KiB
1_12.txt AC 25 ms 7292 KiB
1_13.txt AC 21 ms 6908 KiB
1_14.txt AC 25 ms 6908 KiB
1_15.txt AC 22 ms 6908 KiB
1_16.txt AC 24 ms 7036 KiB
1_17.txt AC 24 ms 6908 KiB
1_18.txt AC 19 ms 6780 KiB
1_19.txt AC 25 ms 6908 KiB
1_20.txt AC 21 ms 6780 KiB
1_21.txt AC 27 ms 7548 KiB
1_22.txt AC 23 ms 6908 KiB
1_23.txt AC 26 ms 7548 KiB
1_24.txt AC 22 ms 6780 KiB
1_25.txt AC 25 ms 6908 KiB
1_26.txt AC 18 ms 6780 KiB
1_27.txt AC 21 ms 6780 KiB
1_28.txt AC 19 ms 6908 KiB