This basically provides while , break and continue .
#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 "Youdidn'tsayplease\n") (continue )) (when (regexp-match #px"quit"input) (break )))
syntax( while testbody...)
syntax
( while testbody...)
syntax( break )
( break )
syntax( continue )
( continue )
AltStyle γ«γγ£γ¦ε€ζγγγγγΌγΈ (->γͺγͺγΈγγ«) / γ’γγ¬γΉ: γ’γΌγ: γγγ©γ«γ ι³ε£°γγ©γ¦γΆ γ«γδ»γ ι θ²εθ»’ ζεζ‘ε€§ γ’γγ€γ«