rle90-encode ( bytes -- bytes' )

Vocabulary

binhex.private

Inputs

bytes

an object

Outputs

bytes'

an object

Definition

USING: kernel make sequences splitting.monotonic ;

IN: binhex.private

: rle90-encode ( bytes -- bytes' )
    [ [ = ] monotonic-split-slice [ rel90% ] each ] B{ } make ;