Joshephus or MamakoDate Sequence EASY by youz

(while(= n(read)k(-(read)1)r[if cdr._(r:rem(pr(_:= p(mod(+ p k)len._))" ")_)(prn _.0)]p 0)(r:range 1 n))

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

download

return to the top page