LINUX.ORG.RU

Perl. На форуме вычитал интереснейший, но не очень понятный пример. Ну-ка, ну-ка, как тут оно закручено... Ааа!!!

Shaman007 ★★★★★
()

Perl: TIMTOWTDI

$me =~ m{(?i:foot)(?{shoot ^N})}x; shoot $_ foreach grep {$_->isa('foot')} @me;

anonymous
()

scheme:

пытаясь прострелить себе ногу, случайно создаете новое окружение, в котором простреливаете ногу своему ребенку

создаете новую ногу с зияющей в ней дырой, пытаетесь открутить свою правую ногу и вставить на ее место новую, но из-за ошибки в аксессоре откручиваете себе голову

grob ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.