输入数字的平均值

问题描述

在这个程序中，我想获得输入数字的平均值，不仅是总和，而且我无法获得平均值，并且“输入数字：”不断重复。

这是我的代码

(princ"Enter how many numbers to read: ")
(defparameter a(read))

(defun num ()
  (loop repeat a
         sum (progn 
               (format *query-io* "Enter a number: ")
               (finish-output)
               (parse-integer (read-line *query-io* )))))


(format t "Sum: ~d ~%" (num))
(format t "Average: ~d ~%" (/ (num) a)) ;; I can't get the output for the average  and the "Enter a number: " keeps repeating.


Enter how many numbers to read: 5
Enter a number: 4
Enter a number: 3
Enter a number: 2
Enter a number: 1
Enter a number: 3
Sum: 13

Enter a number:   <-------

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）