#lang racket

(define (make-people-list n)
  (build-list n (lambda (i) (+ i 1))))

(define (kill m people)
  (let loop ((i m)
             (p people)
             (r '())) ; result
    (cond ((null? p) (loop i people '()))
          ((<= i  0) (values (first p)
                             (append (reverse r)
                                     (rest    p))))
          ( else     (loop (-  i 1)
                           (rest p)
                           (cons (first p) r))))))

(define (circle-of-hell n m)
  (define people (make-people-list n))
  (set! m (- m 1))
  (let loop ((p people)
             (l '())) ; losers
    (if (null? (rest p))
        (values p (reverse l))
        (let-values (((loser others) (kill m p)))
          (printf "loser: ~a ~a\n" loser others)
          (loop others (cons loser l))))))

(define (test)
  (circle-of-hell 5 3))

Добро пожаловать в DrRacket, версия 5.1.1 [3m].
Язык: racket; memory limit: 4096 MB.
> (test)
; loser: 3 (1 2 4 5)
; loser: 4 (1 2 5)
; loser: 5 (1 2)
; loser: 1 (2)
2
'(3 4 5 1)
>