fork download
  1. import Data.List
  2. main = print.map head.group $ [1,1,2,2,3,3,3,1]
Success #stdin #stdout 0s 8388607KB
stdin
Standard input is empty
stdout
[1,2,3,1]