2006-04-15から1日間の記事一覧
;;; 大宮までの電車代を求める (defun check_price (month teiki-price kaisu katamiti) (- (* (* (/ (* month 30) 7.0) kaisu) ; 実際に何回通うか (* (/ (* katamiti 10) 11.0) ; 回数券は片道 * 10で11回分乗れる 2)) teiki-price)) (check_price 1 17000…
;;; 大宮までの電車代を求める (defun check_price (month teiki-price kaisu katamiti) (- (* (* (/ (* month 30) 7.0) kaisu) ; 実際に何回通うか (* (/ (* katamiti 10) 11.0) ; 回数券は片道 * 10で11回分乗れる 2)) teiki-price)) (check_price 1 17000…