Select Code to Download

use strict;
use warnings;
...
        make_sets1( $weight -1, "$temp_result$item, ");
    }
}

$ time perl  multisets.pl
count = 1
...
real    0m0.141s
user    0m0.046s
sys     0m0.031s

$ time perl  multisets.pl > /dev/null

real    0m0.057s
user    0m0.015s
sys     0m0.015s

count = 3
0, 0, 0,
...
3, 3, 0,
3, 3, 2,
3, 3, 3,

count=3
3,0,0
...
0,0,0
0,2,2
2,2,2