|(require dyoo-while-loop)||package: while-loop|
#lang racket/base (require dyoo-while-loop) (while (not (string=? (read-line) "quit")) (printf "quit? ")) (while #t (define input (read-line)) (unless (regexp-match #px"please" input) (printf "You didn't say please\n") (continue)) (when (regexp-match #px"quit" input) (break)))
(while test body ...)
Repeat the evaluation of the body so long as test is true.
Break out of the innermost loop.
Restart the innermost loop.