DouKaku?beta

Comment detail

/*コメント*/を取り除く (Nested Flatten) 
Squeak Smalltalk で手続き的に。
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
| stream delimiter out string upToAll |
string := 'AAA/a//*BB*B**/CCC'.
stream := string readStream.
delimiter := '*/'.
upToAll := [stream upToAll: (delimiter := delimiter reversed)].
out := String new writeStream.
[stream atEnd] whileFalse: [
   out nextPutAll: upToAll value.
   upToAll value].
^out contents

"=> 'AAA/a/CCC' "

Index

Feed

Other

Link

Pathtraq

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