Submission #1484477

Source Code Expand

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

solve :: String -> String
solve str = go (dropWhile (/= 'C') str)
  where
    go :: String -> String
    go [] = "No"
    go (s:ss)
      | s == 'F' = "Yes"
      | otherwise = go ss

Submission Info

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

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 4
AC × 12
Set Name Test Cases
Sample 0_000.txt, 0_001.txt, 0_002.txt, 0_003.txt
All 0_000.txt, 0_001.txt, 0_002.txt, 0_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt, 1_010.txt, 1_011.txt
Case Name Status Exec Time Memory
0_000.txt AC 1 ms 380 KB
0_001.txt AC 1 ms 380 KB
0_002.txt AC 1 ms 380 KB
0_003.txt AC 1 ms 380 KB
1_004.txt AC 1 ms 380 KB
1_005.txt AC 1 ms 380 KB
1_006.txt AC 1 ms 380 KB
1_007.txt AC 1 ms 380 KB
1_008.txt AC 1 ms 380 KB
1_009.txt AC 1 ms 380 KB
1_010.txt AC 1 ms 380 KB
1_011.txt AC 1 ms 380 KB