結果

問題 No.289 数字を全て足そう
コンテスト
ユーザー まんしmaNNshi
提出日時 2025-03-21 18:36:38
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 10 ms / 1,000 ms
コード長 166 bytes
コンパイル時間 356 ms
コンパイル使用メモリ 30,972 KB
実行使用メモリ 25,760 KB
最終ジャッジ日時 2025-03-21 18:36:40
合計ジャッジ時間 1,936 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 21
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 21 MAR 2025 06:36:38 PM):

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

ソースコード

diff # 

(defvar S)
(defvar sum)
(setq sum 0)
(setq S (read-line))
(loop for c across S do
  (if (digit-char-p c ) (setq sum (+ sum (digit-char-p c)))))
(format 't "~d~%" sum)
0