Нахождение смежных последовательностей равных элементов в списке Раку
Я хотел бы найти смежные последовательности равных элементов (например, длины 2) в списке my @s = <1 1 0 2 0 2 1 2 2 2 4 4 3 3>; say grep {$^a eq $^b}, @s; # ==> ((1 1) (2 2) (4 4) (3 3)) Этот код выглядит нормально, но когда еще одна 2 добавляется после последовательности 2 2 2или когда...