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