結果

問題 No.431 死亡フラグ
ユーザー はむ吉🐹
提出日時 2016-10-14 22:29:05
言語 Haskell
(8.6.2)
結果
AC  
実行時間 4 ms
コード長 283 Byte
コンパイル時間 4,304 ms
使用メモリ 1,812 KB
最終ジャッジ日時 2019-06-16 07:45:55

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
test01.txt AC 3 ms
1,812 KB
test02.txt AC 4 ms
1,796 KB
test03.txt AC 4 ms
1,808 KB
test04.txt AC 4 ms
1,808 KB
test05.txt AC 4 ms
1,800 KB
test06.txt AC 4 ms
1,812 KB
test07.txt AC 3 ms
1,804 KB
test08.txt AC 4 ms
1,800 KB
test09.txt AC 4 ms
1,800 KB
test10.txt AC 4 ms
1,804 KB
test11.txt AC 4 ms
1,792 KB
test12.txt AC 3 ms
1,800 KB
test13.txt AC 3 ms
1,792 KB
test14.txt AC 4 ms
1,804 KB
test15.txt AC 3 ms
1,800 KB
test16.txt AC 4 ms
1,796 KB
テストケース一括ダウンロード
コンパイルメッセージ
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff #
import Control.Applicative ((<$>))

alive :: Integral a => a -> a -> a -> a -> Bool
alive d1 d2 d3 s = s == 1 || d1 + d2 + d3 < 2

main :: IO ()
main = do
    [d1, d2, d3, s] <- fmap read . words <$> getLine :: IO [Int]
    putStrLn $ if alive d1 d2 d3 s then "SURVIVED" else "DEAD"
0