NAME

Math::Homogeneous - Perform homogeneous product

SYNOPSIS Function use Math::Homogeneous;

my @n = qw/ a b c /;
my $homogeneous = homogeneous(2, @n);

for (@$h) {
  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 $homo = Math::Homogeneous->new(2, @n);

while (<$homo>) {
  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>