Egyptian fraction by henkma

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