>>92
> calc=\(n=12,r=3){
+ S=sum(0:n)
+ f=\(x) prod(x) > S-sum(x)
+ nu=sum(apply(comboGeneral(0:n,r),1,f))
+ de=choose(n+1,r)
+ gcd=GCD(nu,de)
+ cat(nu,'/',de,'=',nu/gcd,'/',de/gcd,'=',nu/de,'\n')
+ invisible(nu/de)
+ }
> calc(99,3)
143472 / 161700 = 244 / 275 = 0.8872727