# 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