Slide left

Lbl Left
.r₁=row scan offset
.r₂=column scan index
.r₃=column dest index
.r₄=last value slid
 0
.For each row
 For(4)
  →r₁
  0→r₃→r₄
  .For each column, starting from the left
  For(4)
   →r₂
   .If occupied by a tile
   If {+r₁+L₁}
    .Remove original tile
    Select(→r₅,0→{r₁+r₂+L₁})
    .If equal to the last slid tile
    !If -r₄
     .Increment merged tile value
     {r₁+r₃-1+L₁}++
    .If not equal to the last slid tile
    Else
     .Store tile to destination and increment destination index
     Select(r₅,→{r₃+++r₁-1+L₁})
    End
    .Store value last slid (or garbage if a merge occured)
    →r₄
   End
   r₂+1
  End
  r₁+4
 End
Return