<?for(;1<$n=$l=count($f=fgetcsv(STDIN,99,' '));)for($d=$t=0;$n?~$t-=$f[$l+--$d]*$n/=$d:!print"$t ";$n*=$l+$d);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page