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

[spamsink]

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

Comments

[cema.livejournal.com]

Баян, но недавний.

[dvv.livejournal.com]

wtf the obfuscation with chr(10)?

[spamsink]

Чтобы в шелле было легче печатать, не заботясь об escape chars.

[dvv.livejournal.com]

Huh?

perl -e 'for($a=2;$a<100;++$a) { (1 x $a) =~ /^(11+)\1+$/ || print "$a\n" }'

[spamsink]

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

[raindog-2.livejournal.com]

Я обычно one-linerы запускаю как perl -le, чтобы не добавлять "\n" в print.

[dvv.livejournal.com]

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

[spamsink]

Спасибо. Я -n и -p помню, а c -l как-то не сложилось.

[spamsink]

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

[fregimus.livejournal.com]

Вы так скажите, какие. Пёрль читать хуже нет.

[spamsink]

Так я и не предлагаю - пусть железный читает. Скрипт печатает простые числа; соответственно, выражение соответствует строкам из составного числа единиц.

[dvv.livejournal.com]

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

[fregimus.livejournal.com]

Ой. Как так?

А, \1 - отсылка на первую группу (11+), да?

[spamsink]

Ну да. Красиво, но на практике бесполезно.

[spamsink]

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

Хорошо, что Эратосфен не знал Перла

[yatur.livejournal.com]

...а то бы мы никогда не узнали про решето. Его книгу сожгла бы Инквизиция как бесовские заклинания.

Re: Хорошо, что Эратосфен не знал Перла

[spamsink]

Нужно превентивно запретить Ларри Уоллу путешествовать во времени.

[fregimus.livejournal.com]

Вполне даже полезно. Здесь разбирается интересный класс языков. У Кнута в 1 томе есть доказательство, что невозможен КА, распознающий простые числа. Следовательно, распознавание простых невозможно и обычным регулярным языком REG. A перловыe RE являются VPA, и следовательно описывают некий VPL. Вполне себе практическое доказательство, что VPL достаточно силен для распознавания простых в унарной форме. Даже почти что конструктивное, если язык из машины вычучить.

[spamsink]

На практике полезнее другое. Я имел в виду бесполезность такого способа проверки чисел на простоту.

Re: Хорошо, что Эратосфен не знал Перла

[cema.livejournal.com]

Нет, вперед можно.

[ygam.livejournal.com]

http://perl.plover.com/NPC/

[spamsink]

Да, красиво.

ага, 13-ти летний

[mtve.livejournal.com]

http://groups.google.com/group/comp.lang.perl.misc/msg/51333b03cab7e4de

[alogic.livejournal.com]

Красиво, коротко. Я даже не знал, что так можно.

Re: ага, 13-ти летний

[cema.livejournal.com]

Ну относительно недавний. 90-е годы ведь только что были, кажется.