Re^3: grep surprise

> does not add any value at all.

Not very surprising that you think that way.

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re^3: grep surprise

Replies are listed 'Best First'.
Re^4: grep surprise by dbuckhal (Chaplain) on Nov 12, 2018 at 18:37 UTC
How about the value of verbosity? `$ perl -we ' use strict; my @array=(1,2); my $matches = 0; for my $ea (1..3) { $matches = grep { printf("idx: %d, val: %d == %d? %3s, ", $_, $array[$_], $ea, ($array[$_] == $ea) ? "YES" : "NO"); $array[$_] == $ea; } (0..$#array); print "matches: $matches\n"; } ' __output__ idx: 0, val: 1 == 1? YES, idx: 1, val: 2 == 1? NO, matches: 1 idx: 0, val: 1 == 2? NO, idx: 1, val: 2 == 2? YES, matches: 1 idx: 0, val: 1 == 3? NO, idx: 1, val: 2 == 3? NO, matches: 0` [download] and who ever said Perl was not readable... :)	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.

Re^4: grep surprise
by dbuckhal (Chaplain) on Nov 12, 2018 at 18:37 UTC

$ perl -we '
use strict;
my @array=(1,2);
my $matches = 0;
for my $ea (1..3) {
  $matches = grep {
    printf("idx: %d, val: %d == %d? %3s, ",
      $_, $array[$_], $ea, ($array[$_] == $ea) ? "YES" : "NO");
    $array[$_] == $ea; 
  } (0..$#array);
  print "matches: $matches\n";
}
'

__output__
idx: 0, val: 1 == 1? YES, idx: 1, val: 2 == 1?  NO, matches: 1
idx: 0, val: 1 == 2?  NO, idx: 1, val: 2 == 2? YES, matches: 1
idx: 0, val: 1 == 3?  NO, idx: 1, val: 2 == 3?  NO, matches: 0
[download]

and who ever said Perl was not readable... :)

[reply]
[d/l]

A reply falls below the community's threshold of quality. You may see it by logging in.