Squash a string using filter() and a single call to string()

squash.jl

function squash(str)
  lc = 0
  return string(filter(str) do x
          if x != lc
           lc = x
           return true
          end
          return false
         end)
end