m@main=do a:_:b<-getLine;putStrLn$take 8$tail$show$10+5e-7+sum[1|x<-b,x==a]/sum[1|_<-b];m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page