Submission #1177358

Source Code Expand

import Data.List
import Data.Maybe

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

solve :: String -> String
solve s = show $ indZ - indA + 1
    where
        indA = fromJust $ elemIndex 'A' s
        indZ = fromJust $ elemIndex 'Z' s

Submission Info

Submission Time
Task B - A to Z String
User ykarako
Language Haskell (GHC 7.10.3)
Score 0
Code Size 271 Byte
Status WA
Exec Time 29 ms
Memory 13820 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 200
Status
AC × 1
WA × 2
AC × 3
WA × 9
Set Name Test Cases
Sample 00_example_01.txt, 00_example_02.txt, 00_example_03.txt
All 00_example_01.txt, 00_example_02.txt, 00_example_03.txt, 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt
Case Name Status Exec Time Memory
00_example_01.txt AC 1 ms 380 KB
00_example_02.txt WA 1 ms 380 KB
00_example_03.txt WA 1 ms 380 KB
01.txt WA 15 ms 9340 KB
02.txt WA 10 ms 5500 KB
03.txt WA 7 ms 4988 KB
04.txt WA 5 ms 3068 KB
05.txt AC 29 ms 13820 KB
06.txt AC 19 ms 9468 KB
07.txt WA 15 ms 9468 KB
08.txt WA 15 ms 9468 KB
09.txt WA 15 ms 9468 KB