> Итого 163, шикарно:
> #!perl -naF
> map{/[h-l]/?do{$;[$n]=o;p...@p,$n;$;[$p[$t+=$;[$n+=$$_]!=1]]="-";$;[$n]=x}:do{$h--,$n=@;if/x/;$p[$l=1]=@;if/o/;push@;,$...@f;$k=-($...@f)}{pop@;;print@
Неа, можно еще вот это
$k=-($...@f)
пихнуть перед $h-- вот так
$k-=...@f,
И еще -2.
А $p[$l=1] заменить на $p[++$l], чтобы по аналогии с $h--.
И получается:
#!perl -naF
map{/[h-l]/?do{$;[$n]=o;p...@p,$n;$;[$p[$t+=$;[$n+=$$_]!=1]]="-";$;[$n]=x}:do{$k-=...@f,$h--,$n=@;if/x/;$p[++$l]=@;if/o/;push@;,$...@f}{pop@;;print@
что равно 160-ти символам, видимо ты еще перевод строки \r лишний считаешь :)
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
