Re: uc() every other letter

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

Comment on Re: uc() every other letter Download Code

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]
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]