3ヶ月間上海に行ってました。その間、common lispから離れていたのですが、急に不安になってリハビリを始めました。（common lispから離れていたというより、プログラミングから離れていたと言っても過言ではないかも。phpをチョコっと触ったけど、それ以外はword,excelばかりだったので。でも上海での経験は良い経験だったので、そのまとめエントリは書く予定です）

スピードレース！

メールマガジン『Perlクイズ』

とは言えスピードレースはせずに、実直にリハビリしてるだけです。

(defun speed (n &optional acc)
(if (> n 1)
(let ((new-value (if (zerop (mod n 2))
(floor n 2)
(1+ (* n 3)))))
(speed new-value (push new-value acc)))
(length acc)))

問題の手続きをそのまま書いただけなのに、コーディングの時間が非常にたくさんかかってしまう。かなりの量のリハビリが必要だ。

SPEED
CL-USER> (loop for i to 7
collect (speed i))
(0 0 1 7 2 5 8 16)
CL-USER>

slimeの使い方もすっかり忘れてしまった。