1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: arrays grouping sequences ;
4 IN: compression.run-length
6 : run-length-uncompress ( byte-array -- byte-array' )
7 2 group [ first2 <array> ] map concat ;