[求助]这个简单的循环lisp哪里错了？

zuoluo007

lisp教课书上有一段lisp小程序，计算1+2+...+100=？程序如下：

 

(defun c:lsp-03()
  (setq snum 1)     ;;计算起始值
  (setq sall 0)    ;;设定计算总和起始值
  (repeat 100 
    (setq sall (+ sall snum))
    (setq snum (1+ snum))
  )
  (princ "1+2+...+100=")
  (princ sall) 
)

计算结果显示1+2+...+100=50505050

肯定错了，应该是5050才对，不知问题出在哪，恳请高手指教

liu_kunlun

(defun c:lsp-03()
  (setq snum 1)     ;;计算起始值
  (setq sall 0)    ;;设定计算总和起始值
  (repeat 100 
    (setq sall (+ sall snum))
    (setq snum (1+ snum))
  )
  (princ "1+2+...+100=")
  (princ sall)
  (princ)
)

gufeng

最后缺少一个(princ)导致结果输出了两次

zuoluo007

谢谢，正是如此，高手啊