11 lines
201 B
Racket
11 lines
201 B
Racket
#lang racket
|
|
(define-syntax-rule (while condition body ...)
|
|
(let loop ()
|
|
(when condition
|
|
body ...
|
|
(loop))))
|
|
|
|
(define n 1024)
|
|
(while (positive? n)
|
|
(displayln n)
|
|
(set! n (sub1 n)))
|