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>