Тамада. Программист. Услуги.

Мда.

Решили мы с другом поучаствовать в Code Golf на askdev.ru, с их задачкой по игре в города.
Закончили буквально за три минуты до завершения конкурса, и когда было пора отправлять решение, сайт лег :))

Решение вот такое:

#!/usr/bin/perl -CDAO
use utf8;
use List::Util qw/shuffle/;

my@a=qw{Калининград Вологда Далматово Дмитров Архангельск Владивосток Краков};

{@a=shuffle@a;(grep{$a[$_-1]=~/(.)(.)$/;$a[$_]!~/^$2/i&&$a[$_]!~/^$1/i|grep{/^$2/i}@a}1..$#a)&&redo}

print join ',', @a

По правилам этого конкурса подключение библиотек и вывод данных не учитывются, поэтому размер кода – 100 байт.