main=interact$f.map(toRational.read).words f[a,b,c]=do(a,_:x)<-[a,a+(b-a)/c..b]>>=lex.show;a++[c|c<-'/':x,"1"<x]++" "
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page