kacchi #409(2007/07/09 20:58 GMT) [ Emacs Lisp ] Rating0/0=0.00
(included-tax "ダイコン150円、ハクサイ120円、ジャガイモ30円") =>"ダイコン157円、ハクサイ126円、ジャガイモ31円"
1 2 3
(defun including-tax (str) (let ((rep (lambda (m) (number-to-string (floor (* (string-to-number m) 1.05)))))) (replace-regexp-in-string "[0-9]+" rep str)))
Rating0/0=0.00-0+
1 reply [ reply ]
にしお #436(2007/07/10 05:35 GMT) Rating0/0=0.00
[ reply ]
kacchi
#409()
[
Emacs Lisp
]
Rating0/0=0.00
(defun including-tax (str) (let ((rep (lambda (m) (number-to-string (floor (* (string-to-number m) 1.05)))))) (replace-regexp-in-string "[0-9]+" rep str)))Rating0/0=0.00-0+
1 reply [ reply ]