Cancel fractions by *yuko*

do input""s$:i=val(s$):j=val(mid$(s$,log(i,10)+3))
1k=k+i:if mod(k,j)goto 1
?k/j;:if k>i?"/",k/i;
?:k=0^!k/i=207loop

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

download

return to the top page