Loops/While: Difference between revisions

Racket
(+1)
(Racket)
Line 915:
value: to-integer value / 2
]</lang>
 
=={{header|Racket}}==
<lang racket>
#lang racket
(let loop ([n 1024])
(when (positive? n)
(displayln n)
(loop (quotient n 2))))
</lang>
 
=={{header|Retro}}==
Anonymous user