15/11/18 11:15:42.88 4sFoEFSe.net
>>133 Squeak/Pharo Smalltalk
| str |
str := 'ABBACACBBA'.
Transcript open.
[str isEmpty] whileFalse: [
Transcript cr; show: str.
str := str overlappingPairsCollect: [:a :b |
a = b ifTrue: [a] ifFalse: [('ABC' copyWithoutAll: {a. b}) first]]]