Re: $escalar = @array? and regexs

Mirco Wahab <wahab@xxxxxxxxxxxxxxxxxxx> wrote:

Thus spoke Dr.Ruud (on 2006-12-07 13:19):

for my $i ( 0 .. int( ($#var - 1) / 2 ) )
{
++$bad if lc $Var[$i] ne lc $Var[-1 - $i]
}

If there are 8 elements, then $# is 7, so elements 0..3 need to be
compared with 7..4.
If there are 9 elements, then $# is 8, so elements 0..3 need to be
compared with 8..5.
(I think the int() is implicit, but it doesn't harm much.)

OK, I checked the code, modified it slightly
and put it into my snippets dir:

my $var = 'Reliefpfeiler'; # something german
my @Var = split '', $var;
print "p'drome"
if not grep lc $Var[$_] ne lc $Var[@Var-1-$_], 0..@Var/2;


As Ruud noted, you need only to check 0 .. ( @Var/2 ) - 1, or 0 .. $#Var -
1 (assuming your array is zero based indexed).

BTW using $var and $Var would confuse the bleep out of me :-D.

--
John Experienced Perl programmer: http://castleamber.com/

Perl help, tutorials, and examples: http://johnbokma.com/perl/
.

Relevant Pages

  • Re: $escalar = @array? and regexs
    ... (I think the int() ... is implicit, but it doesn't harm much.) ... For small arrays (like less than 100 elements or so, ...
    (comp.lang.perl.misc)
  • Re: $escalar = @array? and regexs
    ... (I think the int() ... is implicit, but it doesn't harm much.) ... grep returns a list, and that list can be huge. ...
    (comp.lang.perl.misc)
  • Re: $escalar = @array? and regexs
    ... (I think the int() ... is implicit, but it doesn't harm much.) ... and put it into my snippets dir: ...
    (comp.lang.perl.misc)
  • Re: _JoyDef and _Control
    ... a declaration with no type defaults to int ... the problem wasn't "implicit int" but the LALRconflict created ... 'typedef' itself. ...
    (comp.lang.c)
  • Re: main return value stange question
    ... value (relying on implicit int), ... Now we know it won't compile, ... Dig the even newer still, yet more improved, sig! ...
    (comp.lang.c)