Sorting 在lisp中从输入流中读取多项式

从列表pl中读取多项式（输入格式见下文），并将其作为排序列表返回

---

示例：

（ReadPolynomial2'（99017200315082000））

应该返回

（（990）（3150）（25200））

我不知道您是否仍然需要它，但这里是一个可能的解决方案：

(defun ReadPolynomial2 (lst)
  (let ((even-positions (loop for p in (cdr lst) by #'cddr collect p)))
    (loop for p in (remove-duplicates even-positions)
          collect (list (loop for x on lst by #'cddr
                              when (= p (second x))
                              sum (first x)) p))))

---

哇，你甚至没有抄完所有的考试，我需要尽快做这件事。我对口齿不清，上周我发烧了，所以不能做这件事。这不是考试。具有相同度数的数字（系数）应相加，然后显示。到目前为止，您尝试了哪些方法？