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 <hoto17296@gmail.com>