(define renumber
  (lambda (position people)
    (cond ((= position 1)
           (- people 2))
          ((= position 2)
           (- people 1))
          (else
           (- position 3)))))

(define survives?
  (lambda (position people)
    (if (= people 2)
        #t
        (if (= position 3)
            #f
            (survives? (renumber position people)
                       (- people 1))))))