Submission #18995525

Source Code Expand

import           Control.Monad

getInt :: IO Int
getInt = read <$> getLine

main = do
  n <- getInt
  s <- getLine
  t <- getLine

  let collones i (c:cs) res | c == '1'  = collones (i+1) cs (i:res)
                            | otherwise = collones (i+1) cs res
      collones _ [] res = reverse res

      is = collones 0 s []
      js = collones 0 t []

      solve (i:is) (j:js) res | i >= j = solve is js (res+(i-j))
                              | i < j && null is = -1
                              | i < j = let (i':is') = is
                                        in solve is' (j:js) (res+(i'-i))
      solve []     []     res = res
      solve (i:i':is) []  res = solve is [] (res+(i'-i))
      solve _      _      _   = -1

  print $ solve is js 0

Submission Info

Submission Time
Task B - Flip Digits
User unnohideyuki
Language Haskell (GHC 8.8.3)
Score 600
Code Size 786 Byte
Status AC
Exec Time 372 ms
Memory 129440 KiB

Compile Error

Loaded package environment from /home/contestant/.ghc/x86_64-linux-8.8.3/environments/default

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 600 / 600
Status
AC × 3
AC × 34
Set Name Test Cases
Sample 00-sample-001.txt, 00-sample-002.txt, 00-sample-003.txt
All 00-sample-001.txt, 00-sample-002.txt, 00-sample-003.txt, 01-001.txt, 01-002.txt, 01-003.txt, 01-004.txt, 01-005.txt, 01-006.txt, 01-007.txt, 01-008.txt, 01-009.txt, 01-010.txt, 01-011.txt, 01-012.txt, 01-013.txt, 01-014.txt, 01-015.txt, 01-016.txt, 01-017.txt, 01-018.txt, 01-019.txt, 01-020.txt, 01-021.txt, 01-022.txt, 01-023.txt, 01-024.txt, 01-025.txt, 01-026.txt, 01-027.txt, 01-028.txt, 01-029.txt, 01-030.txt, 01-031.txt
Case Name Status Exec Time Memory
00-sample-001.txt AC 7 ms 3708 KiB
00-sample-002.txt AC 2 ms 3568 KiB
00-sample-003.txt AC 2 ms 3572 KiB
01-001.txt AC 2 ms 3684 KiB
01-002.txt AC 14 ms 7688 KiB
01-003.txt AC 14 ms 7352 KiB
01-004.txt AC 124 ms 36696 KiB
01-005.txt AC 197 ms 66156 KiB
01-006.txt AC 86 ms 32492 KiB
01-007.txt AC 298 ms 82452 KiB
01-008.txt AC 170 ms 48916 KiB
01-009.txt AC 179 ms 52760 KiB
01-010.txt AC 155 ms 45700 KiB
01-011.txt AC 259 ms 73124 KiB
01-012.txt AC 27 ms 9996 KiB
01-013.txt AC 178 ms 65116 KiB
01-014.txt AC 289 ms 82524 KiB
01-015.txt AC 334 ms 98820 KiB
01-016.txt AC 352 ms 117236 KiB
01-017.txt AC 372 ms 129440 KiB
01-018.txt AC 305 ms 98864 KiB
01-019.txt AC 315 ms 88552 KiB
01-020.txt AC 319 ms 88484 KiB
01-021.txt AC 310 ms 88476 KiB
01-022.txt AC 322 ms 88476 KiB
01-023.txt AC 320 ms 88612 KiB
01-024.txt AC 309 ms 99680 KiB
01-025.txt AC 306 ms 98032 KiB
01-026.txt AC 312 ms 97884 KiB
01-027.txt AC 314 ms 97824 KiB
01-028.txt AC 309 ms 98028 KiB
01-029.txt AC 311 ms 98824 KiB
01-030.txt AC 298 ms 94856 KiB
01-031.txt AC 328 ms 98712 KiB