Egyptian fraction by kaki

(do('display`/,ceiling)(#f)(do((x((^n'`n'" = "n)`(read))`(-`x`,x)))((=`x`,x)'`,x'"
")'`,x'" + "))

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

download

return to the top page