Re: How can one find out the pairwise difference and product between elements in a perl array without using a perl module?

Not as fancy as some, but gives the output you specified. O might not be too bad as it's only a single pass through for the main number, and both operations can be done on the same pass. As always, YMMV.

#!/usr/bin/perl

use strict;
use warnings;

my @array=qw/a b c d/;

while ( @array > 1 ) {
    my $first = shift(@array);
    for my $next ( @array ) {
        # take diff $first - $next;
        # take product $first * $next;
        print sprintf("%-8s%s\n","$first - $next","$first * $next");
    }
}

exit;

__END__

a - b   a * b
a - c   a * c
a - d   a * d
b - c   b * c
b - d   b * d
c - d   c * d
[download]

Comment on Re: How can one find out the pairwise difference and product between elements in a perl array without using a perl module? Download Code