結果

問題 No.431 死亡フラグ
ユーザー まんしmaNNshi
提出日時 2025-03-24 19:30:39
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 10 ms / 2,000 ms
コード長 1,210 bytes
コンパイル時間 244 ms
コンパイル使用メモリ 28,292 KB
実行使用メモリ 25,792 KB
最終ジャッジ日時 2025-03-24 19:30:40
合計ジャッジ時間 1,445 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 16
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 24 MAR 2025 07:30:39 PM):

; wrote /home/judge/data/code/Main.fasl
; compilation finished in 0:00:00.069

ソースコード

diff # 

(defparameter flg (make-array 16))

(setf flg #(
(0 0 0 0)
(0 0 1 0)
(0 1 0 0)
(0 1 1 0)
(1 0 0 0)
(1 0 1 0)
(1 1 0 0)
(1 1 1 0)
(0 0 0 1)
(0 0 1 1)
(0 1 0 1)
(0 1 1 1)
(1 0 0 1)
(1 0 1 1)
(1 1 0 1)
(1 1 1 1)
)
)

(defparameter input (read-from-string (concatenate 'string "(" (read-line) ")")))

(if (equal (aref flg  0) input) (format 't "SURVIVED~%")) 
(if (equal (aref flg  1) input) (format 't "SURVIVED~%"))
(if (equal (aref flg  2) input) (format 't "SURVIVED~%"))
(if (equal (aref flg  3) input) (format 't "DEAD~%"))
(if (equal (aref flg  4) input) (format 't "SURVIVED~%"))
(if (equal (aref flg  5) input) (format 't "DEAD~%"))
(if (equal (aref flg  6) input) (format 't "DEAD~%"))
(if (equal (aref flg  7) input) (format 't "DEAD~%"))
(if (equal (aref flg  8) input) (format 't "SURVIVED~%"))
(if (equal (aref flg  9) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 10) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 11) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 12) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 13) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 14) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 15) input) (format 't "SURVIVED~%"))
0