Egyptian fraction by clock

_:$<
#include"std/num.wake"
(.+?)\n(.*):"$1 = "$1"\n"$2
(.*) . 0.+:"$1"
(.*?)(\d+)/(\d+)_(.*):$1\1/$4\ +\ $(sub($(mul($2,$4)),$3))/$(mul($3,$4))
.*?(\d+)/(\d+):$&_$(add(1,$(div($(sub($2,1)),$1))))

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

download

return to the top page