Anonymous user
LZW compression: Difference between revisions
m
→version 2: corrected a misspelling.
m (→version 2: corrected a misspelling.) |
|||
Line 4,432:
LZWd: procedure; parse arg x y,,@.; #= 256 /*LZW decompress algorithm.*/
do j=0 for #; @.j= d2c(j); end /*j*/
$= @.x; w= $ /*#:
do k=1 for words(y); z= word(y, k)
if @.z\=='' | @.k==" " then ?= @.z
| |||