結果

問題 No.279 木の数え上げ
コンテスト
ユーザー まんしmaNNshi
提出日時 2025-03-24 20:56:41
言語 Common Lisp
(sbcl 2.5.0)
結果
WA  
実行時間 -
コード長 278 bytes
コンパイル時間 296 ms
コンパイル使用メモリ 28,780 KB
実行使用メモリ 27,672 KB
最終ジャッジ日時 2025-03-24 20:56:44
合計ジャッジ時間 2,352 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other WA * 21
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 24 MAR 2025 08:56:42 PM):

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

ソースコード

diff # 

(defparameter tcnt 0)
(defparameter rcnt 0)
(defparameter ecnt 0)
(loop for char = (read-char nil nil)
      while char do
        (if (char= char #\Newline) (return))
		(if (char= char #\t) (incf tcnt))
		(if (char= char #\r) (incf rcnt))
		(if (char= char #\e) (incf ecnt))
)
0