p=[:] 1.upto(100){n->a=1;n.times{z=n-it+',';p[z+n]=a+=p[z+it]?:0} println"p($n)=$a"}