f(x:_:y)='0':(tail$take 8$show$sum[1|z<-y,z==x]/sum(y>>[1])+5e-7+1)++"\n" main=interact$(>>=f).lines
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page