DouKaku?beta

Comment detail

税込み価格への修正 (Nested Flatten) 
(including-tax "ダイコン150円、ハクサイ120円、ジャガイモ30円")

=>"ダイコン157円、ハクサイ126円、ジャガイモ31円"

1
2
3
(define (including-tax str)
  (let ((rep (lambda (m) (x->integer (floor (* (string->number (m 0)) 1.05))))))
    (regexp-replace-all #/\d+/ str rep)))

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]