12 lines
330 B
Common Lisp
12 lines
330 B
Common Lisp
(defun van-der-Corput (n base)
|
|
(loop for d = 1 then (* d base) while (<= d n)
|
|
finally
|
|
(return (/ (parse-integer
|
|
(reverse (write-to-string n :base base))
|
|
:radix base)
|
|
d))))
|
|
|
|
(loop for base from 2 to 5 do
|
|
(format t "Base ~a: ~{~6a~^~}~%" base
|
|
(loop for i to 10 collect (van-der-Corput i base))))
|