Написание цикла while в схеме

Чтобы увидеть, что происходит при оценке ((lambda (x) (x x)) (lambda (x) (x x)), используйте степпер в DrRacket. Он может показать вам шаги, которые выполняет оценка.

Напишите свое выражение в окне определения DrRacket. Затем выберите язык обучения «Студент среднего уровня с лямбдой». Затем нажмите кнопку шагового двигателя (зеленый треугольник, за которым следует полоса).

Вы увидите что-то похожее на изображение (которое использует другую программу):

Обновлять:

Попробуйте эту программу:

(define i 5)

((lambda (x) (x x))
 (lambda (x) 
   (if (not (= i 0))
       (x x)
       'ignore)))

Обновлять:

(define i 5)

(define f
  (lambda (x) 
    (if (not (= i 0))
        (begin
          (display i)
          (set! i (- i 1))
          (x x))
        'done)))

(f f)

Или вообще без каких-либо определений:

((lambda (f) (f f))
 (lambda (x) 
   (if (not (= i 0))
       (begin
         (display i)
         (set! i (- i 1))
         (x x))
       'done)))

А здесь без внешней переменной:

((lambda (f i) (f f i))
 (lambda (x i) 
   (if (not (= i 0))
       (begin
         (display i)
         (x x (- i 1)))
       'done))
 5)

Использование функции while:

(define (while body . args)
  (apply body body args))

(while (lambda (loop i)
         (if (not (= i 0))
             (begin
               (display i)
               (loop loop (- i 1)))
             'done))
  5)