ааа, вот и правила:<br><br>При решении можно пользоваться любыми ключами интерпретатора (например, -l, -n, -p), но эти символы (вместе с дефисом) прибавляются к общему количеству символов программы. Путь к интерпретатору перла (shebang) в счет не идет, но если там присутствуют ключи, то они считаются.<br>
<br>я не прав )<br><br><div class="gmail_quote">29 мая 2008 г. 11:28 пользователь Anatoly Sharifulin &lt;<a href="mailto:sharifulin@gmail.com">sharifulin@gmail.com</a>&gt; написал:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Ваши решения написаны на винде, получаются гольфнее, чем точно такие же на никсах ? :)<br>Тогда можно писать вообще без шабанга и запускать через perl -lp script.pl<br><br><br><div class="gmail_quote">28 мая 2008 г. 10:57 пользователь Andrey &lt;<a href="mailto:jerom%2Bmoscow-pm@bibirevo.net" target="_blank">jerom+moscow-pm@bibirevo.net</a>&gt; написал:<div>
<div></div><div class="Wj3C7c"><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Во-первых, чуть подсократили решение Тарасова:<br>
<br>
#!perl -lp<br>
@h{a,0..9}=(0..9,a);s/^0//while s/(.)(.)/$h{$1}$h{$2}/;$_=/0/?yes:&quot;no&quot;<br>
<br>
А во-вторых mtve прислал супер-вариант на 50 символов, красота!<br>
#!perl -lp<br>
$_=s/..?\b/&quot;@:[0..$&amp;]&quot;/e?redo:/^( {11})*$/?yes:&#39;no&#39;<br>
<br>
--<br>
Андрей<br>
<font color="#888888">--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/moscow-pm" target="_blank">http://mail.pm.org/mailman/listinfo/moscow-pm</a></font></blockquote></div></div></div><font color="#888888"><br><br clear="all"><br>-- <br>С уважением,<br>
 Анатолий Шарифулин.
</font></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br> Анатолий Шарифулин.