Gapful numbers: Difference between revisions
m
→{{header|Common Lisp}}
Line 683:
(defun report-range (range)
(destructuring-bind (start size) range
(format t "The first ~a gapful numbers >= ~a:~% ~a~%" size start
(gapfuls-in-range start size))))
(mapcar #'report-range '((100 30) (1000000 15) (1000000000 10)))
| |||