Select Code to Download

my $integer = 5;
my @p;
...
      part( $n-$k, $j, $t+1);
   }
}

1004% perl part.pl
5
...
2 2 1
2 1 1 1
1 1 1 1 1

my $integer = 5;
my @p;
...
      part( $n-$k, $j, $t+1);
   }
}