The game's "stack equal columns" corresponds to Haskell's Data.List.group function:
> import Data.List
> group [1,2,2,3,3,3,2,1,1]
[[1],[2,2],[3,3,3],[2],[1,1]]