NAME

Math::Homogeneous - Perform homogeneous product

SYNOPSIS

Function

use Math::Homogeneous;

my @n = qw/ a b c /;
my $homo = homogeneous(2, @n);
for (@$homo) {
  print join(',', @$_) . "\n";
}

Output

a,a
a,b
a,c
b,a
b,b
b,c
c,a
c,b
c,c

Iterator

use Math::Homogeneous;

my @n = qw/ a b c /;
my $itr = Math::Homogeneous->new(2, @n);

while (<$itr>) {
  print join(',', @$_) . "\n";
}

Output

a,a
a,b
a,c
b,a
b,b
b,c
c,a
c,b
c,c

DESCRIPTION

Perform homogeneous product.

LICENSE

Copyright (C) hoto.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

hoto <hoto17296@gmail.com>