while/until loops for Racket🔗 i

1Example and usage🔗 i

#lang racket/base

(requirewhile-until)

 

(while(not(string=?(read-line)

"quit"))

(printf"quit?"))

 

(while#t

(defineinput(read-line))

(unless(regexp-match#px"please"input)

(printf"Youdidn'tsayplease\n")

(continue))

(when(regexp-match#px"quit"input)

(break)))

#lang racket/base

(requirewhile-until)

(requireoutput)

 

(definen5)

(while(>n0)

(dumpn)

(set!n(-n1))

)

(definem5)

(until(<m1)

(dumpm)

(set!m(-m1))

)

2Reference🔗 i