in reply to uc() every other letter

my @mixed_case = 'a' .. 'z';
my $other_letter = 0;
$_ = uc() for grep ++$other_letter % 2, @mixed_case;

[download]

Replies are listed 'Best First'.
Re: Re: uc() every other letter
by virtualsue (Vicar) on Sep 28, 2001 at 22:21 UTC
    MiNi kRaZy golf on the modulus theme: 
    my $i=0;
my @a = ('a'...'z');
$i++%2||($_=uc)for@a;

    [download]
[reply]
[d/l]
      I can trim one char off of that.... 
      $i++%2or$_=uc for@a;

      [download]

      -Blake

[reply]
[d/l]

In Section Seekers of Perl Wisdom