結果
問題 |
No.431 死亡フラグ
|
ユーザー |
![]() |
提出日時 | 2016-11-06 11:25:13 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 23 ms / 2,000 ms |
コード長 | 221 bytes |
コンパイル時間 | 51 ms |
コンパイル使用メモリ | 6,688 KB |
実行使用メモリ | 16,000 KB |
最終ジャッジ日時 | 2024-11-25 03:16:48 |
合計ジャッジ時間 | 1,556 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 16 |
ソースコード
(define (f d1 d2 d3 s) (or (= s 1) (< (+ d1 d2 d3) 2))) (define (MAIN) (display (if (apply f (map string->number (string-split (read-line) #\space))) "SURVIVED" "DEAD")) (newline)) (MAIN)