在lisp中從輸入流讀取多項式

Question

從列表pl讀取多項式（請參閱下面的輸入格式）並將其作爲排序列表返回。

舉例：(ReadPolynomial2 '(99 0 17 200 3 150 8 200 0 0))應該返回((99 0) (3 150) (25 200))

Answer 1

我不知道你是否還需要它，但在這裏它是一個可能的解決方案：

(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))))