m@main=do z<-getLine;putStrLn$take 1[show#[s,s+l]|l<-[0..200],s<-[1..15],[n|n<-gcd 15#[s..s+l],1<n]==f#words z]>>=unwords;m (#)=map f"Fizz"=3;f"Buzz"=5;f _=15
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page