結果

問題 No.495 (^^*) Easy
ユーザー まんしmaNNshi
提出日時 2025-04-20 16:12:24
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 13 ms / 2,000 ms
コード長 317 bytes
コンパイル時間 1,317 ms
コンパイル使用メモリ 34,860 KB
実行使用メモリ 25,384 KB
最終ジャッジ日時 2025-04-20 16:12:27
合計ジャッジ時間 1,960 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 7
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 20 APR 2025 04:12:24 PM):

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

ソースコード

diff # 

(defparameter migi 0)
(defparameter hidari 0)
(defparameter cnt 0)
(defparameter mae nil)
(loop for char = (read-char nil nil) do
	(if (eq char #\#) (return))
	(if (and (eq char #\*) (eq mae #\^)) (incf hidari))
	(if (and (eq char #\*) (eq mae #\()) (incf migi))

	(setq mae char)
)

(format t "~d ~d~%" hidari migi)
0