in reply to Re: uc() every other letter
in thread uc() every other letter

MiNi kRaZy golf on the modulus theme: 
my $i=0;
my @a = ('a'...'z');
$i++%2||($_=uc)for@a;

[download]

Replies are listed 'Best First'.
Re: Re: Re: uc() every other letter
by blakem (Monsignor) on Sep 28, 2001 at 22:28 UTC
    I can trim one char off of that.... 
    $i++%2or$_=uc for@a;

    [download]

    -Blake

[reply]
[d/l]

In Section Seekers of Perl Wisdom