Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use warnings;
- use List::Util qw(shuffle);
- use Data::Dumper;
- $Data::Dumper::Indent = 0;
- unless (defined $ARGV[0]) {
- $ARGV[0] = 5;
- }
- for (1 .. factorial($ARGV[0])) {
- my @array = (0 .. ($ARGV[0] - 1));
- @array = shuffle(@array);
- print Dumper( \@array ) . "\n";
- }
- sub factorial {
- my $n = shift;
- my $f = 1;
- $f *= $n-- while $n > 0;
- return $f;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement