Наверное, баян

[spamsink]

Какие строки подпадают под (перловское) регулярное выражение /^(11+)\1+$/ ?
Запустите
perl -e 'for($a=2;$a<100;++$a) { ('1' x $a) =~ /^(11+)\1+$/ || print $a, chr(10); }'
и откроется вам.

Comments

[spamsink]

Здесь повезло, что внешние кавычки годятся одинарные. В более сложных случаях фокус не пройдет.

[dvv.livejournal.com]

Как сказал мой бывший директор of development, "не надо решать непоставленных задач".

[spamsink]

Логично, но у меня chr(10) в командной строке уже на автомате. Вот ниже более правильное решение предложили.

[dvv.livejournal.com]

Более правильное, чем chr(10) — меньший обфускейшон. Но всё ещё обфускейшон.

[spamsink]

Что, и perl -np теперь не напиши? :)