a#b|n<- -div(-b)a=shows n$[1|n*a>b]>>" + 1/"++(n*a-b)#(n*b) m@main=do l<-getLine;putStrLn$l++" = 1/"++do(a,_:b)<-reads l;a#read b m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page