История изменений
Исправление annulen, (текущая версия) :
Challenge accepted
$ perl -ne '(/^\d+$/ && !grep {!/(\d)\1/} (m/../g)) && print' numbers.txt
11004488
22662266
11111111
22225555
33331111
88885555
55005500
22773366
77441188
Пояснение: (\d)\1 матчит пары одинаковых цифр подряд
Исправление annulen, :
Challenge accepted
$ perl -ne 'if (/^\d+$/ && !grep {!/(\d)\1/} (m/../g)) { print }' numbers.txt
11004488
22662266
11111111
22225555
33331111
88885555
55005500
22773366
77441188
Пояснение: (\d)\1 матчит пары одинаковых цифр подряд
Исходная версия annulen, :
Challenge accepted
$ perl -ne 'if (/^\d+$/ && !grep {!/(\d)\1/} (m/../g)) { print }' numbers.txt
11004488
22662266
11111111
22225555
33331111
88885555
55005500
22773366
77441188