結果

問題 No.558 575検出するやつ
コンテスト
ユーザー まんしmaNNshi
提出日時 2025-03-29 19:10:34
言語 Common Lisp
(sbcl 2.5.0)
結果
WA  
実行時間 -
コード長 729 bytes
コンパイル時間 1,316 ms
コンパイル使用メモリ 29,580 KB
実行使用メモリ 27,800 KB
最終ジャッジ日時 2025-03-29 19:10:36
合計ジャッジ時間 2,366 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample WA * 5
other WA * 15
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 29 MAR 2025 07:10:34 PM):

; file: /home/judge/data/code/Main.lisp
; in: LOOP FOR
;     ('F5
;      (IF (EQL CHAR #\7)
;          (SETQ STATE 'SEV)
;          (SETQ STATE 'ZERO)))
; 
; caught STYLE-WARNING:
;   Duplicate key QUOTE in CASE form, occurring in clause 1:
;     ('ZERO
;      (IF (EQL CHAR #\5)
;          (SETQ STATE 'F5))), and clause 2:
;     ('F5
;      (IF (EQL CHAR #\7)
;          (SETQ STATE 'SEV)
;          (SETQ STATE 'ZERO))).

;     ('SEV
;      (IF (EQL CHAR #\5)
;          (PROGN (SETQ ANS "OK~%") (RETURN))
;          (SETQ STATE 'ZERO)))
; 
; caught STYLE-WARNING:
;   Duplicate key QUOTE in CASE form, occurring in clause 2:
;     ('F5
;      (IF (EQL CHAR #\7)
;          (SETQ STATE 'SEV)
;          (SETQ STATE 'ZERO))), and clause 3:
;     ('SEV
;      (IF (EQL CHAR #\5)
;          (PROGN (SETQ ANS "OK~%") (RETURN))
;          (SETQ STATE 'ZERO))).
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


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

ソースコード

diff # 

(defvar state)
(setq state 'zero )
;state
;zero
;f5
;sev
;s5

(defvar ans)
(setq ans "NG~%")
(loop for char = (read-char nil nil) do
        (if (eq char nil) (return))
        (if (not (eq char #\Newline)) (progn
                (values)
        ))
        (case state
                ('zero
                        ;(print "zero")
                        (if (eql char #\5) (setq state 'f5))
                )
                ('f5   ;(print "f5")
                        (if (eql char #\7) (setq state 'sev) (setq state 'zero))
                )
                ('sev  ;(print "sev")
                        (if (eql char #\5) (progn (setq ans "OK~%") (return)) (setq state 'zero))
                )
        )
)
(format 't ans)
0