RosettaCodeData/Task/Run-length-encoding/Zkl/run-length-encoding-2.zkl
2023-07-01 13:44:08 -04:00

6 lines
230 B
Text

fcn inflate(data){ //-->String
data.howza(3).pump(String,
fcn(c){ // if c==1, read n,c2 and expand, else write c
if(c=="\x01") return(Void.Read,2) else return(Void.Write,c) },
fcn(_,n,c){ c*n.toAsc() })
}