4 lines
104 B
Common Lisp
4 lines
104 B
Common Lisp
(defun kill (n k &aux (m 0))
|
|
(loop for a from (1+ m) upto n do
|
|
(setf m (mod (+ m k) a)))
|
|
m)
|