Andrey пишет: > Чё уж там, ещё минус много выкидыванием do: (149.608 strokes): > #!perl -naF > map{/[h-l]/?${$;[$n]=o;push на p,$n;$;[$p[++$t]]='-'if$;[$n+=$$_]<1;$;[$n]=x}:/x/&&($k-=$j=@F,$l=!$h--,$n=@;),$p[/o/]=@;, на p>2||push@;,$_}@F}{print@ Хехе, интересное извращенное использование ${} %)