while/until loops for Racket🔗ℹ

This basically provides while, until, break and continue.

1 Example and usage🔗ℹ

#lang racket/base

(require while-until)

(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)))

#lang racket/base

(require while-until)

(require pprint-all)

(define n 5)

(while (> n 0)

(dump n)

(set! n (- n 1))

)

(define m 5)

(until (< m 1)

(dump m)

(set! m (- m 1))

)

2 Reference🔗ℹ