run-length-uncompress ( byte-array -- byte-array' )

Vocabulary

compression.run-length

Inputs

byte-array

an object

Outputs

byte-array'

an object

Definition

USING: arrays grouping sequences ;

IN: compression.run-length

: run-length-uncompress ( byte-array -- byte-array' )
    2 group [ first2 <array> ] map B{ } concat-as ;