RosettaCodeData/Task/Loops-Do-while/Racket/loops-do-while-1.rkt

6 lines
116 B
Racket
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
#lang racket
(let loop ([n 0])
(let ([n (add1 n)])
(displayln n)
(unless (zero? (modulo n 6)) (loop n))))