Напишите в Racket процедуру, которая действует как «циклы while» в таких языках, как Java. Для выполнения цикла while требуется два фрагмента кода: условие и тело. он запускает тело, затем снова пытается выполнить условие, снова запуская тело, если оно истинно. Это продолжается до тех пор, пока условие не вернет false.
вот как я начал на нем: потом я застрял.
(define (while condition body)
(when (true? condition)
(cons (proc body) (proc (rest body)))
condition и body — это процедуры, поэтому их нужно вызывать.
После вызова тела вы должны вызвать while рекурсивно, чтобы повторить.
(define (while condition body)
(when (condition)
(body)
(while condition body)))
Вам не нужен true?, так как when просто проверяет, является ли условие #f или нет.
в схеме время должно быть реализовано с помощью макроса, чтобы избежать оценки аргументов
(define-syntax while
(syntax-rules ()
((_ pred b1 ...)
(let loop () (when pred b1 ... (loop))))))
condition и body представляют процедуры, т. е. они оцениваются как процедуры, которые должны использоваться внутри while.
- person ad absurdum; 14.08.2020
