本文展示了一个使用Lisp编写的程序，该程序通过迭代计算从1到指定数值的倒数之和，并打印最终结果。文章通过具体示例展示了不同规模输入下的运行情况。
(defun calc (n)
(do ( (x 1 (1+ x) ) (sum 0) )
( (> x n) (print sum)(print 'nihao) )
(psetq sum (+ sum (/ 1.0 x )) ) ))
(log 1000)
(calc 1000)
(log 10000)
(calc 10000)
(log 100000)
(calc 100000)
(log 1000000)
(calc 1000000)
(log 10000000)
(calc 10000000)
(log 100000000)
(calc 100000000)
扫一扫
575
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
