Anonymous user
Run-length encoding: Difference between revisions
→{{header|Pure}}
Line 2,152:
encode s = strcat $ map (sprintf "%d%s") $ encode $ chars s with
encode [] = [];
encode xs@(x:_) = (#takewhile (
end;
| |||
Line 2,152:
encode s = strcat $ map (sprintf "%d%s") $ encode $ chars s with
encode [] = [];
encode xs@(x:_) = (#takewhile (
end;
| |||