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

6 lines
116 B
Racket
Raw Permalink Normal View History

2013-06-05 21:47:54 +00:00
#lang racket
(let loop ([n 0])
(let ([n (add1 n)])
(displayln n)
(unless (zero? (modulo n 6)) (loop n))))