幫助與口齒不清

Question

例如乘以多項式：（3X - 5X + 2）（7X + 1），你把它簡化這樣的：

((3 2)(-5 1)(2 0))((7 1)(1 0)) 
((21 3)(3 2)(-35 2)(-5 1)(14 1)(2 0)) 
(21 3)(32 2)(9 1)(2 0) 

，你會得到這樣的回答：21X + 32X + 9X + 2

我需要在口齒不清該解決方案，請幫助

Answer 1

第一階段，你需要配對每RHS組件每LHS組件;這兩套笛卡爾產品。這需要一個兩級映射，然後將第二級對列表串聯到一個頂級列表中（請考慮(apply #'append ...）。

第二階段可以通過減少來建立一個關聯列表，在指數上鍵入。

編輯：讓我來解決不同的問題給你，讓你弄清楚如何將其轉化爲你的問題的解決方案：首先擴大到對，然後將乘積相加

計算(a + b + ... + k) * (l + m + ... + z)：

(defun mul-sums (aa bb) 
    (reduce #'+ 
      (apply #'append 
       (map 'list 
         #'(lambda (a) 
          (map 'list 
           #'(lambda (b) 
            (* a b)) 
           bb)) 
         aa)))) 
; Compute (1 + 2 + 3) * (3 + 4). 
> (mul-sums '(1 2 3) '(3 4)) 
42