RosettaCodeData/Task/Loops-Do-while/Racket/loops-do-while-1.rkt
2023-07-01 13:44:08 -04:00

5 lines
116 B
Racket

#lang racket
(let loop ([n 0])
(let ([n (add1 n)])
(displayln n)
(unless (zero? (modulo n 6)) (loop n))))