Perl Golf для Moscow.pm 2 октября 2014
Домино́ — игра, в процессе которой выстраивается цепь костяшек («костей», «камней»), соприкасающихся половинками с одинаковым числом очков. Таким образом каждая костяшка характеризуется парой чисел, не важно в каком порядке.
Задача. Найти максимально длинное кольцо, которое можно составить из списка предложенных вам костяшек или вывести 0, если их нельзя закольцевать.
Входные данные: Строка из пар чисел от 0 до 6, разделенных пробелом. Каждая пара - одна костяшка.
Пример: 01 11 12 22 31 32
Данные подаются на STDIN:
cat data | perl golf.pl
Задача: Вывести максимально длинную закольцованную последовательность костяшек. Если их нельзя закольцевать - вывести 0.
Для приведенного выше примера: 11 12 22 23 31
Проверить работоспособность решения можно приложенным набором тестов:
prove test.pl
Размер решения можно посчитать с помощью скрипта golfcount.pl:
perl golfcount.pl golf.pl
Решения присылайте на dzirtik@gmail.com с темой "Golf 1410"
Крайний срок приема решений до 31 октября 2014 23.59
Присылайте свои пулреквесты с тестами!