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