結果

問題 No.431 死亡フラグ
ユーザー ichibanshibori
提出日時 2016-10-14 22:25:17
言語 OCaml
(4.05.0)
結果
AC  
実行時間 3 ms
コード長 363 Byte
コンパイル時間 312 ms
使用メモリ 1,064 KB
最終ジャッジ日時 2019-03-31 19:59:54

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
test01.txt AC 2 ms
1,060 KB
test02.txt AC 2 ms
1,060 KB
test03.txt AC 1 ms
1,060 KB
test04.txt AC 2 ms
1,064 KB
test05.txt AC 3 ms
1,064 KB
test06.txt AC 3 ms
1,064 KB
test07.txt AC 2 ms
1,064 KB
test08.txt AC 3 ms
1,060 KB
test09.txt AC 3 ms
1,060 KB
test10.txt AC 3 ms
1,064 KB
test11.txt AC 2 ms
1,064 KB
test12.txt AC 2 ms
1,064 KB
test13.txt AC 3 ms
1,056 KB
test14.txt AC 2 ms
1,060 KB
test15.txt AC 3 ms
1,060 KB
test16.txt AC 2 ms
1,060 KB
テストケース一括ダウンロード

ソースコード

diff #
let () =
  let d1, d2, d3, s = read_line () |>
                      Str.split (Str.regexp_string " ") |>
                      List.map int_of_string |>
                      fun lst -> (List.nth lst 0, List.nth lst 1, List.nth lst 2, List.nth lst 3)
  in
  (s = 1 || (d1 + d2 + d3) < 2) |>
  (function | true -> "SURVIVED" | false -> "DEAD") |>
  print_endline
0