2009-06-03 00:29:04 -04:00
|
|
|
! Copyright (C) 2009 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: arrays grouping sequences ;
|
|
|
|
|
IN: compression.run-length
|
|
|
|
|
|
2009-06-03 22:22:19 -04:00
|
|
|
: run-length-uncompress ( byte-array -- byte-array' )
|
2009-06-03 00:29:04 -04:00
|
|
|
2 group [ first2 <array> ] map concat ;
|
