Re: Shortest non-numeric Perl expression for each number

Smylers <[email protected]> Thu, 11 Mar 2004 20:24:42 GMT

Newsgroups	gmane.comp.lang.perl.golf
Message-ID	<[email protected]>

Ton Hospel writes:

> For a good average:
> 
> $X[0]  = $a;
> $X[1]  = //;
> $X[2]  = $^F++;
> $X[3]  = $^F++;
> $X[4]  = $^F++;
> $X[5]  = $^F++;

For a slightly shorter average:

  $X[2]  = $^F;
  $X[3]  = ++$^F;
  $X[4]  = ++$^F;
  $X[5]  = ++$^F;

Smylers