Math::Homogeneous - Perform homogeneous product
use Math::Homogeneous;
my @n = qw/ a b c /;
my $homo = homogeneous(2, @n);
for (@$homo) {
print join(',', @$_) . "\n";
}
a,a
a,b
a,c
b,a
b,b
b,c
c,a
c,b
c,c
use Math::Homogeneous;
my @n = qw/ a b c /;
my $itr = Math::Homogeneous->new(2, @n);
while (<$itr>) {
print join(',', @$_) . "\n";
}
a,a
a,b
a,c
b,a
b,b
b,c
c,a
c,b
c,c
Perform homogeneous product.
Copyright (C) hoto.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
hoto hoto17296@gmail.com