[Moscow.pm] А у вас работает ?

[Vany Serezhkin]

Привет.
Так, отставить панику, это я идиот.

Фишка в том, что при
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
Мы матчим последовательность, а потом тооже самое,
а во время  (){} мы матчим n раз эти самые скобки
Вообщем оно матчит (11)(11)(11)...(111) и  идёт дальше.
А когда ему таки подсовывают стотыщщмильёнов единиц -
естественно валится по памяти.

первая строчка кода печатает простые числа.

-- 
Ivan B. Serezhkin
Spamooborona, Yandex. http://so.yandex.ru/