Run-length encoding: Difference between revisions

Line 4,251:
=={{header|Smalltalk}}==
See [[Run-length encoding/Smalltalk]]
 
A "functional" version without RunArray:
{{works with|Smalltalk/X}} (and others)
 
Line 4,295:
decompress value:'12W1B12W3B24W1B14W'
-> 'WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW'</lang>
 
Most Smalltalk dialects include a class named "RunArray", which can be used as:
{{works with|Smalltalk/X}}
{{works with|VisualWorks}}
<lang smalltalk>compress := [:string |
String streamContents:[:out |
string asRunArray runsDo:[:count :char |
count printOn:out. out nextPut:char]]].</lang>
 
=={{header|SNOBOL4}}==
Anonymous user