DeleteAdjacentDuplicates¶ Removes consecutive duplicate elements. $ wo 'DeleteAdjacentDuplicates[{1, 1, 2, 2, 3, 1, 1}]' {1, 2, 3, 1}