Factoradic Decoder by pooq

1input""a$:if""<a$b=len(a$):c=1:d=0:for v=1to b:d=d+c*val(mid$(a$,b-v+1,1)):c=c*v:next:?d:goto 1

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

download

return to the top page