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@
Хехе, интересное извращенное использование ${} %)