make run-length compression output a byte-array
parent
6e26ea1952
commit
9649a191bb
|
@ -1,7 +1,11 @@
|
||||||
! Copyright (C) 2009 Doug Coleman.
|
! Copyright (C) 2009 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: arrays grouping sequences ;
|
USING: accessors arrays combinators grouping kernel locals math
|
||||||
|
math.matrices math.order multiline sequence-parser sequences
|
||||||
|
tools.continuations ;
|
||||||
IN: compression.run-length
|
IN: compression.run-length
|
||||||
|
|
||||||
|
|
||||||
: run-length-uncompress ( byte-array -- byte-array' )
|
: run-length-uncompress ( byte-array -- byte-array' )
|
||||||
2 group [ first2 <array> ] map concat ;
|
2 group [ first2 <array> ] map B{ } concat-as ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue