Joshephus or MamakoDate Sequence EASY by pooq

1input""m,n:if m for i=1to m a$=a$+chr$(i)next:for i=1to m:b=mod(n-1,len(a$)):a$=mid$(a$,b+1)+left$(a$,b):?asc(a$);:a$=mid$(a$,2)next:?:goto 1

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

download

return to the top page