4 lines
158 B
Smalltalk
4 lines
158 B
Smalltalk
compress := [:string |
|
|
String streamContents:[:out |
|
|
string asRunArray runsDo:[:count :char |
|
|
count printOn:out. out nextPut:char]]].
|