#!/usr/bin/perl -l BEGIN { $| = 1; $^W = 1; } use strict; use warnings; use Data::Dump qw(pp); use Algorithm::Combinatorics qw(partitions); my(@data) = qw(a b c d e f g); my $iter = partitions(\@data, 3, 4); while (my $p = $iter->next) { print pp($p); }
In reply to Re: Combinatorics of Math::Combinatorics
by Khen1950fx
in thread Combinatorics of Math::Combinatorics
by watashi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |