Submission #213459

Source Code Expand

{-# LANGUAGE CPP #-}
#ifndef HDEVTOOLS
{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
#endif
{-# LANGUAGE BangPatterns, ViewPatterns, OverloadedStrings #-}

main :: IO ()
main = do
  [a] <- getLine
  print $ fromEnum a - fromEnum 'A' + 1

Submission Info

Submission Time
Task A - A
User mkotha
Language Haskell (GHC 7.4.1)
Score 100
Code Size 247 Byte
Status AC
Exec Time 250 ms
Memory 1436 KB

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 5
Set Name Test Cases
all A.txt, B.txt, C.txt, D.txt, E.txt
Case Name Status Exec Time Memory
A.txt AC 250 ms 1312 KB
B.txt AC 28 ms 1436 KB
C.txt AC 27 ms 1308 KB
D.txt AC 27 ms 1432 KB
E.txt AC 28 ms 1308 KB