Loops/While: Difference between revisions
Content added Content deleted
(→{{header|Lasso}}: adding Lasso while loop example) |
m (→{{header|Racket}}: While Macro) |
||
| Line 1,081: | Line 1,081: | ||
=={{header|Racket}}== |
=={{header|Racket}}== |
||
===Loop/When=== |
|||
<lang racket>#lang racket |
<lang racket>#lang racket |
||
(let loop ([n 1024]) |
(let loop ([n 1024]) |
||
| Line 1,086: | Line 1,087: | ||
(displayln n) |
(displayln n) |
||
(loop (quotient n 2))))</lang> |
(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}}== |
=={{header|Retro}}== |
||