Relative Frequency by Lost_dog

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