(defun calc (n)
(do ( (x 1 (1+ x) ) (sum 0) )
( (> x n) sum )
(psetq sum (+ sum (/ 1.0 x )) ) ))
(- (calc 1000)
(log (+ 1 1000)))
(- (calc 10000)
(log (+ 1 10000)))
(- (calc 100000)
(log (+ 1 100000)))
(defun calc (n)
(do ( (x 1 (1+ x) ) (sum 0) )
( (> x n) sum )
(psetq sum (+ sum (/ 1.0 x )) ) ))
(- (calc 1000)
(log (+ 1 1000)))
(- (calc 10000)
(log (+ 1 10000)))
(- (calc 100000)
(log (+ 1 100000)))