Help for this page

Select Code to Download


  1. or download this
    sub f{for(($s,$t)=@_;$_=$$t{(0,l,r)[$$t{d}cmp$s]};$t=$_){}$t}
  2. or download this
    sub f{for(($s,$t)=@_;$_=$t&&(0,l,r)[$$t{d}cmp$s];){$t=$$t{$_}||0}$t}
  3. or download this
    sub f{for(($s,$t)=@_;$_=$t&&(0,l,r)[$$t{d}cmp$s];){$t=$$t{$_}}$t}
  4. or download this
        $|++;
    $table = {
        d => 'h',
...
            print "Answer for $y = ";
            print $x," ", $$x{d},"\n";
    }