Help for this page

Select Code to Download


  1. or download this
    ...map{"@$_\n"}@a...
...map"@$_\n",@a...
  2. or download this
    ...map{$$_[0]>$i?():[$i,@$_]}P($n-$i)...
...map$$_[0]>$i?():[$i,@$_],P($n-$i)...
  3. or download this
    sub P{
my$i=pop;[$i],map{--$i;map$$_[0]>$i?():[$i,@$_],P($_-1)}2..$i
}