; 貯金箱内の合計金額を求めて 1000 で割ったあまり b1000 を求める ; b1000 を 100 で割った商と剰余を記録 -> a100 b100 ; b100 を 25 で割った商と剰余を記録 -> a25 b25 ; 答えは a100 + a25 + b25 である (defun main () (let* ((l (read)) (m (read)) (n (read)) (total (+ (* l 100) (* m 25) (* n 1))) (b1000 (mod total 1000)) (a100 (floor b1000 100)) (b100 (mod b1000 100)) (a25 (floor b100 25)) (b25 (mod b100 25)) (ans (+ a100 a25 b25))) (princ ans) (terpri))) (main)