結果

問題 No.264 じゃんけん
ユーザー まんしmaNNshi
提出日時 2025-03-20 15:58:44
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 9 ms / 5,000 ms
コード長 495 bytes
コンパイル時間 492 ms
コンパイル使用メモリ 27,984 KB
実行使用メモリ 25,536 KB
最終ジャッジ日時 2025-03-20 15:58:46
合計ジャッジ時間 1,209 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 9
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 20 MAR 2025 03:58:44 PM):

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

ソースコード

diff # 

(defvar N)
(defvar K)
(defvar temp)
(setq temp (read-line))
(setq N (aref temp 0))
(setq K (aref temp 2))

(defvar Won1 "0 1")
(defvar Won2 "1 2")
(defvar Won3 "2 0")

(defvar Lost1 "1 0")
(defvar Lost2 "2 1")
(defvar Lost3 "0 2")

(defvar Drew1 "0 0")
(defvar Drew2 "1 1")
(defvar Drew3 "2 2")

(if (or (equal temp Won1) (equal temp Won2) (equal temp Won3))
 (format 't "Won~%")
 (if (or (equal temp Lost1) (equal temp Lost2) (equal temp Lost3))
 (format 't "Lost~%")
 (format 't "Drew~%")

)
)
0