for $i (0..100) { 
   for $j (0..100) { 
     for $k (0..100) { 
        $c++; 
        $s=$i+$j+$k; 
        $d++ if $s<=100
   }}}
print $d/$c;