in reply to Re^2: Challenge: CPU-optimized byte-wise or-equals (for a meter of beer)
in thread Challenge: CPU-optimized byte-wise or-equals (for a meter of beer)

If that were true, then this would be close to the ultimate function:

sub supertest
{
    my $s1= shift;
    if (substr($s1,1,1) ne chr(0))
    {
        return $s1;
    }else{
        return shift;
    }
}

[download]

Seems pretty silly to me for that to be the case ;)

  • Comment on Re^3: Challenge: CPU-optimized byte-wise or-equals (for a meter of beer)
  • Download Code

In Section Seekers of Perl Wisdom