rename run-length's uncompress word
parent
b9100e5077
commit
3550621341
|
@ -3,5 +3,5 @@
|
||||||
USING: arrays grouping sequences ;
|
USING: arrays grouping sequences ;
|
||||||
IN: compression.run-length
|
IN: compression.run-length
|
||||||
|
|
||||||
: run-length-uncompress8 ( byte-array -- byte-array' )
|
: run-length-uncompress ( byte-array -- byte-array' )
|
||||||
2 group [ first2 <array> ] map concat ;
|
2 group [ first2 <array> ] map concat ;
|
||||||
|
|
Loading…
Reference in New Issue