Re: Eek! goto?


  # given that @abc[0,1,2] correspond to the C vars a, b, and c, respe
+ctively.

  my $i = $len-1;
  my $s = $len; $s <= 8 and $s--;
  $abc[$i/4] += $k[$i] << (($s%4)*8);

  # or, if you want to be too clever:
  $abc[$i>>2] += $k[$i] << (($s&3)<<3);
[download]

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.

Comment on Re: Eek! goto? Download Code

Replies are listed 'Best First'.
Re: Re: Eek! goto? by BrowserUk (Patriarch) on Mar 24, 2003 at 12:48 UTC
Erm. Did you omit the loop? Examine what is said, not who speaks. 1) When a distinguished but elderly scientist states that something is possible, he is almost certainly right. When he states that something is impossible, he is very probably wrong. 2) The only way of discovering the limits of the possible is to venture a little way past them into the impossible 3) Any sufficiently advanced technology is indistinguishable from magic. Arthur C. Clarke.	[reply]
Re: Re: Re: Eek! goto? by jdporter (Paladin) on Mar 24, 2003 at 13:21 UTC
Yes. You're referring to the loop my code should have had in order to duplicate the action of the original code, not the loop present in the original code (because there wasn't one!). jdporter The 6th Rule of Perl Club is -- There is no Rule #6.	[reply]