>>19
最初の問題だけです。
(defun yen$ (x &optional (rate 130))
(format t "~,1F~%" (/ x 130)))