Egyptian fraction by henkma

_#0=""
s#x|n<-ceiling$1/x=s++show n++" + 1/"#(x-1/toRational n)
m@main=do l<-getLine;putStrLn$l++" = 1/"#read[max"0%"[a,a]!!1|a<-l];m

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page