Gapful numbers: Difference between revisions
Content added Content deleted
(→{{header|Erlang}}: Make output match code.) |
(→{{header|Scheme}}: remove 1+ so it works in R5RS.) |
||
Line 2,898: | Line 2,898: | ||
(define (gapfuls-in-range start size) |
(define (gapfuls-in-range start size) |
||
(let ((found 0) (result '())) |
(let ((found 0) (result '())) |
||
(do ((n start ( |
(do ((n start (+ n 1))) ((>= found size) (reverse result)) |
||
(if (gapful? n) |
(if (gapful? n) |
||
(begin (set! result (cons n result)) (set! found (+ found 1))))))) |
(begin (set! result (cons n result)) (set! found (+ found 1))))))) |