ABC 001bでACしたソースコードが以下の通り。 (let* ((m (read)) (vv (cond ((< m 100) "00") ((<= m 5000) (format nil "~2,'0d" (* m (expt 10 -2)))) ((<= m 30000) (+ (* m (expt 10 -3)) 50)) ((<= m 70000) (+ (/ (- (/ m 1000) 30) 5) 80)) (t 89))))…

時間開けるとCommon Lispに関する知識が抜け落ちるので、素早く思い出せるように。 当分は昔解いたAtCoder Beginners Contestで躓いたこととか、記法を忘れたこととかやると思う。