Submission #1177339


Source Code Expand

main :: IO ()
main = getLine >>= putStrLn . solve . read

solve :: Int -> String
solve x
    | x < 1200  = "ABC"
    | otherwise = "ARC"

Submission Info

Submission Time
Task A - ABC/ARC
User ykarako
Language Haskell (GHC 7.10.3)
Score 100
Code Size 144 Byte
Status AC
Exec Time 2 ms
Memory 508 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 7
Set Name Test Cases
Sample 00_example_01.txt, 00_example_02.txt
All 00_example_01.txt, 00_example_02.txt, 01.txt, 02.txt, 03.txt, 04.txt, 05.txt
Case Name Status Exec Time Memory
00_example_01.txt AC 1 ms 508 KB
00_example_02.txt AC 1 ms 508 KB
01.txt AC 1 ms 508 KB
02.txt AC 2 ms 508 KB
03.txt AC 2 ms 508 KB
04.txt AC 2 ms 508 KB
05.txt AC 2 ms 508 KB