Submission #1476809

Source Code Expand

import Control.Monad
import Data.Char
import Control.Applicative

main :: IO ()
main = do
  s <-  getLine
  let s' = "CODEFESTIVAL2016"
  print $ sum $ zipWith (\c c' -> if c == c' then 0 else 1) s s'

Submission Info

Submission Time
Task A - Signboard
User nmjiri
Language Haskell (GHC 7.10.3)
Score 100
Code Size 210 Byte
Status AC
Exec Time 2 ms
Memory 380 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 11
Set Name Test Cases
Sample s1.txt, s2.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, s1.txt, s2.txt
Case Name Status Exec Time Memory
01.txt AC 2 ms 380 KB
02.txt AC 1 ms 380 KB
03.txt AC 1 ms 380 KB
04.txt AC 1 ms 380 KB
05.txt AC 2 ms 380 KB
06.txt AC 2 ms 380 KB
07.txt AC 1 ms 380 KB
08.txt AC 2 ms 380 KB
09.txt AC 1 ms 380 KB
s1.txt AC 1 ms 380 KB
s2.txt AC 2 ms 380 KB