(phixonline)-->
with javascript_semantics
function encode(string s)
sequence r = {}
if length(s) then
integer ch = s[1],
count = 1
for i=2 to length(s) do
if s[i]!=ch then
r &= {count,ch}
ch = s[i]
count = 1
else
count += 1
end if
end for
r &= {count,ch}
end if
return r
end function
function decode(sequence s)
string r = ""
for i=1 to length(s) by 2 do
r &= repeat(s[i+1],s[i])
end for
return r
end function
sequence s = encode("WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW")
?s
?decode(s)