Исходное сообщение
"Ядро Darwin портировано для архитектуры ARM" Отправлено pavlinux, 30-Ноя-13 18:56
Натыкай в своём айпеде вот такой простой текст #!/usr/bin/perl open F,shift; @code=grep{/[+-\.,\[\]><]/}split'',<F>; for(my$_=0;$_<@code;++$_){     $cpu[$i]++if$code[$_]eq'+';     $cpu[$i]--if$code[$_]eq'-';     $i--if$code[$_]eq'<';     $i++if$code[$_]eq'>';     print chr$cpu[$i]if$code[$_]eq'.';     $cpu[$i]=ord<STDIN>if$code[$_]eq',';     if($code[$_]eq'['){         if(!$cpu[$i]){             ++$brc;             while($brc){                 ++$_;                 $brc++if$code[$_]eq'[';                 $brc--if$code[$_]eq']';             }         }else{             next;         }     }elsif($code[$_]eq']'){         if(!$cpu[$i]){             next;         }else{             $brc++if$code[$_]eq']';             while($brc){                 --$_;                 $brc--if$code[$_]eq'[';                 $brc++if$code[$_]eq']';             }         --$_;         }     } }

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Натыкай в своём айпеде вот такой простой текст > [code] > #!/usr/bin/perl > open F,shift; > @code=grep{/[+-\.,\[\]><]/}split'',<F>; > for(my$_=0;$_<@code;++$_){ > $cpu[$i]++if$code[$_]eq'+'; > $cpu[$i]--if$code[$_]eq'-'; > $i--if$code[$_]eq'<'; > $i++if$code[$_]eq'>'; > print chr$cpu[$i]if$code[$_]eq'.'; > $cpu[$i]=ord<STDIN>if$code[$_]eq','; > if($code[$_]eq'['){ > if(!$cpu[$i]){ > > ++$brc; > > while($brc){ > > ++$_; > > $brc++if$code[$_]eq'['; > > $brc--if$code[$_]eq']'; > > } > }else{ > > next; > } > }elsif($code[$_]eq']'){ > if(!$cpu[$i]){ > > next; > }else{ > > $brc++if$code[$_]eq']'; > > while($brc){ > > --$_; > > $brc--if$code[$_]eq'['; > > $brc++if$code[$_]eq']'; > > } > --$_; > } > } > } > [/code]
	Введите код, изображенный на картинке: