Re: Want for a name?

friends, neighbors, (over)laps

  DB<106> sub friends (&@){
            my $code=shift;
            $last=$_;
            my @result;
            for (@_) {
              push @result, $code->($last,$_);
              $last=$_;
            }
            return @result;
          }

  DB<107> friends { $_[0]+$_[1] } 1..5
 => (1, 3, 5, 7, 9)
[download]

update

maybe "friendwise" in analogy to "pairwise" since "friend" is a noun

Cheers Rolf

( addicted to the Perl Programming Language)

Comment on Re: Want for a name? Download Code

Replies are listed 'Best First'.
Re^2: Want for a name? by AnomalousMonk (Archbishop) on May 17, 2018 at 15:55 UTC
maybe "friendwise" ... Or "contiguwise"? "adjacentwise"? "adjointwise"? "adjacently"? "adjointly"? Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re^2: Want for a name? by hdb (Monsignor) on Dec 11, 2013 at 20:28 UTC
Would there be a way to use `$a` and `$b` as in `reduce`?	[reply] [d/l] [select]
Re^3: Want for a name? by LanX (Saint) on Dec 11, 2013 at 20:40 UTC
sure, you need to localize them. But $a and $b always have the risk to be lexicals from the outer scope˛, I wanted to avoid discussing that problem.š It's about naming after all... Cheers Rolf ( addicted to the Perl Programming Language) š) compare this error `DB<108> my $a=3; sort {$a <=> $b} @a Can't use "my $a" in sort comparison at ...` [download] ˛) being bound to another package can be solved by investigating the `caller`, but checking for lexicals involves padwalker.	[reply] [d/l] [select]