# 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 <[email protected]>

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.