import Text.Printf main@m=getLine>>=printf"%.6f\n".f>>m f(c:_:s)=sum[1::Float|x<-s,x==c]/sum[1|_<-s]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page