Submission #1771026
Source Code Expand
import Control.Monad canClear :: Int -> Int -> Int -> Int -> Bool canClear 300 ng1 ng2 ng3 | ng1 `mod` 3 == 0 || ng2 `mod` 3 == 0 || ng3 `mod` 3 == 0 = False canClear 299 ng1 ng2 ng3 | ng1 `mod` 3 == 2 || ng2 `mod` 3 == 2 || ng3 `mod` 3 == 2 = False canClear 298 ng1 ng2 ng3 | ng1 `mod` 3 == 1 || ng2 `mod` 3 == 1 || ng3 `mod` 3 == 1 = False canClear n ng1 ng2 ng3 | n == ng1 || n == ng2 || n == ng3 = False | ng1 + 1 == ng2 && ng2 + 1 == ng3 = False | ng1 + 1 == ng3 && ng3 + 1 == ng2 = False | ng2 + 1 == ng3 && ng3 + 1 == ng1 = False | otherwise = True main :: IO () main = do n <- readLn :: IO Int [ng1,ng2,ng3] <- replicateM 3 readLn :: IO [Int] putStrLn $ if canClear n ng1 ng2 ng3 then "YES" else "NO"
Submission Info
Submission Time | |
---|---|
Task | C - 123引き算 |
User | atctk |
Language | Haskell (GHC 7.10.3) |
Score | 0 |
Code Size | 776 Byte |
Status | WA |
Exec Time | 2 ms |
Memory | 508 KB |
Judge Result
Set Name | All | ||||
---|---|---|---|---|---|
Score / Max Score | 0 / 100 | ||||
Status |
|
Set Name | Test Cases |
---|---|
All | sample_01.txt, sample_02.txt, sample_03.txt, test_143_142_141_140.txt, test_1_1_2_3.txt, test_1_2_3_4.txt, test_200_200_2_3.txt, test_231_77_78_80.txt, test_235_124_126_125.txt, test_253_45_47_48.txt, test_297_223_224_225.txt, test_297_294_292_290.txt, test_297_297_30_83.txt, test_297_3_43_72.txt, test_298_125_123_124.txt, test_298_293_295_291.txt, test_298_298_4_8.txt, test_298_36_72_98.txt, test_298_55_3_43.txt, test_298_92_91_295.txt, test_299_200_151_65.txt, test_299_240_35_154.txt, test_299_300_299_298.txt, test_299_33_242_151.txt, test_299_56_57_58.txt, test_299_66_132_198.txt, test_300_271_44_68.txt, test_300_299_298_296.txt, test_300_30_99_183.txt, test_300_4_5_6.txt, test_84_34_64_36.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 1 ms | 508 KB |
sample_02.txt | AC | 2 ms | 508 KB |
sample_03.txt | AC | 1 ms | 508 KB |
test_143_142_141_140.txt | WA | 2 ms | 508 KB |
test_1_1_2_3.txt | AC | 1 ms | 508 KB |
test_1_2_3_4.txt | WA | 2 ms | 508 KB |
test_200_200_2_3.txt | AC | 1 ms | 508 KB |
test_231_77_78_80.txt | AC | 2 ms | 508 KB |
test_235_124_126_125.txt | AC | 1 ms | 508 KB |
test_253_45_47_48.txt | AC | 1 ms | 508 KB |
test_297_223_224_225.txt | AC | 2 ms | 508 KB |
test_297_294_292_290.txt | AC | 1 ms | 508 KB |
test_297_297_30_83.txt | AC | 1 ms | 508 KB |
test_297_3_43_72.txt | AC | 2 ms | 508 KB |
test_298_125_123_124.txt | AC | 2 ms | 508 KB |
test_298_293_295_291.txt | AC | 1 ms | 508 KB |
test_298_298_4_8.txt | AC | 2 ms | 508 KB |
test_298_36_72_98.txt | AC | 2 ms | 508 KB |
test_298_55_3_43.txt | WA | 2 ms | 508 KB |
test_298_92_91_295.txt | WA | 2 ms | 508 KB |
test_299_200_151_65.txt | WA | 2 ms | 508 KB |
test_299_240_35_154.txt | WA | 2 ms | 508 KB |
test_299_300_299_298.txt | AC | 2 ms | 508 KB |
test_299_33_242_151.txt | AC | 2 ms | 508 KB |
test_299_56_57_58.txt | AC | 2 ms | 508 KB |
test_299_66_132_198.txt | AC | 2 ms | 508 KB |
test_300_271_44_68.txt | AC | 2 ms | 508 KB |
test_300_299_298_296.txt | AC | 2 ms | 508 KB |
test_300_30_99_183.txt | AC | 2 ms | 508 KB |
test_300_4_5_6.txt | AC | 2 ms | 508 KB |
test_84_34_64_36.txt | AC | 2 ms | 508 KB |