# 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