Factoradic Encoder by pooq

do
input""x$
if""=x$end
n=val(x$)
d=0
for a=1to 11d=mod(n,a)*10^a/10+d
n=int(n/a)next
?d using"%.0f"loop

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

download

return to the top page