# 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