Help for this page

Select Code to Download


  1. or download this
    my $n    = shift || 10;
    my $iter = int_partitions($n);
    ...
            return map { ($_) x $tally[$_] } reverse 1 .. $n;
        };
    }
    
  2. or download this
    my @set  = @ARGV ? @ARGV : 1 .. 4;
    my $iter = set_partitions(@set);
    ...
            return @return;
        };
    }