<?xml version="1.0" encoding="windows-1252"?>
<node id="766514" title="Re^2: fibo's 66 chars" created="2009-05-27 17:17:12" updated="2009-05-27 17:17:12">
<type id="11">
note</type>
<author id="300037">
Roy Johnson</author>
<data>
<field name="doctext">
Since you only use the parameter once, it's cheaper to just &lt;strike&gt;reference it as &lt;c&gt;$ARGV[0]&lt;/c&gt;&lt;/strike&gt; &lt;i&gt;pop it inline&lt;/i&gt; rather than assign it to anything.
&lt;c&gt;
@b=(0,1);push@b,$b[-2]+$b[-1]for 2..pop;print$b[-2]
&lt;/c&gt;
You can save fourteen more strokes (and, irrelevantly, memory) by not using an array and using convoluted scalar assignment with a variable that is pre-initialized:
&lt;c&gt;
$b=1;$?=($b+=$?)-$?for 2..pop;print$?
&lt;/c&gt;
&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-300037"&gt;
&lt;hr&gt;
&lt;small&gt;&lt;b&gt;Caution:&lt;/b&gt; Contents may have been coded under pressure.&lt;/small&gt;
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
765916</field>
<field name="parent_node">
766127</field>
</data>
</node>
