LZW compression: Difference between revisions

m
(Added Arturo implementation)
Line 214:
<lang rebol>compress: function [str][
dict: #[]
loop 0..255 'i -> dict\[to :string to :char i]: i
 
w: ""
1,532

edits