DouKaku?beta

Comment detail

税込み価格への修正 (Nested Flatten) 
関数にはしていませんが…(^_^;)。
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
| inString in out |
inString := 'ダイコン150円、ハクサイ120円、ジャガイモ30円'.
in := inString readStream.
out := String new writeStream.
[in atEnd] whileFalse: [
   in peek isDigit
      ifTrue: [out print: ((Integer readFrom: in) * 1.05) floor]
      ifFalse: [out nextPut: in next]].
^out contents

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

Index

Feed

Other

Link

Pathtraq

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