Submission #1693651

Source Code Expand

import qualified Data.List as List
import qualified Data.Char as Char
import qualified Data.Maybe as Maybe

main :: IO ()
main = getContents >>=
  print . (\(n:_:dislike_digits) -> Maybe.maybe 0 id . List.find (null . List.intersect dislike_digits . map Char.digitToInt . show) $ iterate succ n) . map (read :: String -> Int) . words

Submission Info

Submission Time
Task C - Iroha's Obsession
User mvgk
Language Haskell (GHC 7.10.3)
Score 300
Code Size 339 Byte
Status AC
Exec Time 32 ms
Memory 1020 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status AC
AC × 10
Set Name Test Cases
Sample
All subtask0_sample_01.txt, subtask0_sample_02.txt, subtask1_X_01.txt, subtask1_X_02.txt, subtask1_X_03.txt, subtask1_X_04.txt, subtask1_X_05.txt, subtask1_X_06.txt, subtask1_X_07.txt, subtask1_X_08.txt
Case Name Status Exec Time Memory
subtask0_sample_01.txt AC 2 ms 892 KB
subtask0_sample_02.txt AC 2 ms 508 KB
subtask1_X_01.txt AC 5 ms 892 KB
subtask1_X_02.txt AC 32 ms 892 KB
subtask1_X_03.txt AC 3 ms 1020 KB
subtask1_X_04.txt AC 2 ms 508 KB
subtask1_X_05.txt AC 2 ms 508 KB
subtask1_X_06.txt AC 5 ms 892 KB
subtask1_X_07.txt AC 2 ms 508 KB
subtask1_X_08.txt AC 2 ms 508 KB