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