Anonymous user
Loops/While: Difference between revisions
m
→{{header|Racket}}: While Macro
(→{{header|Lasso}}: adding Lasso while loop example) |
m (→{{header|Racket}}: While Macro) |
||
Line 1,081:
=={{header|Racket}}==
===Loop/When===
<lang racket>#lang racket
(let loop ([n 1024])
Line 1,086 ⟶ 1,087:
(displayln n)
(loop (quotient n 2))))</lang>
===Macro===
<lang racket>#lang racket
(define-syntax-rule (while condition body ...)
(let loop ()
(when condition
body ...
(loop))))
(define n 0)
(while (< n 10)
(displayln n)
(set! n (add1 n)))
=={{header|Retro}}==
| |||