在方案中乘以方案

Question

我能夠制定方案代碼在方案中添加兩個缺點清單。 說，列表1 - '（P d。）列表2' 我的自定義使用CDR &汽車概念添加功能，可以像預期（P p p d。）（P p p p d）。

不過，我現在想乘這兩個&基於P的數量，我有一個自定義功能，讓我表計數值。比方說，對於list1的 - > 1 list2-> 3

我還可以管理以檢測是否兩個列表中的任何一個是空的，所以I輸出「d。

但真正的問題是何時涉及乘法。 list1的 - '（第d。）列表2 - '（PPPPP Q值。） 結果預期 - （2×5 = 10個P的），因此「（。pppppppppp Z）

我嘗試使用while循環中，執行同時，加自定義功能，但我似乎無法弄清楚如何去做。也許一些指導能幫助我:)

我想建立一個自定義的功能，因爲我不希望使用一組！或任何使過程更容易，但想要了解遞歸的方式，它可以在這種情況下工作:)。

Answer 1

因爲它似乎解決您原來的問題，努力實現使用利弊列出方案皮亞諾號我加入這個作爲一個答案。

對於一個開始與零值和函數來遞增和遞減的數字。

;; We define our abstraction for zero 
(define zero 'D) 

;; Increment a number, i.e. get its successor 
(define (inc number) 
    (cons 'P number)) 

;; Decrement a number, i.e. get its predecessor 
(define (dec number) 
    (cdr number)) 

這允許遍歷所有（正）整數。在完成這些功能，我們可以建立遞歸性質的附加功能，利用：

a + 0 = a 
a + b = (a + 1) + (b - 1) 

同樣的乘法函數可以建立在add函數，使用：

a * 0 = 0 
0 * b = 0 
a * 1 = a 
a * b = a + (a * (b - 1)) 

這導致以下，雖然非常低效的代碼：

;; Adding two numbers is done by "shifting" from one to the other, one by one. 
;; a + b = (a + 1) + (b - 1) 
(define (add lhs rhs) 
    (if (eq? rhs zero) 
     lhs 
     (add (inc lhs) (dec rhs)))) 

;; Multiplying the dumb way: 
;; a * b = a + (a * (b - 1)) 
(define (mul lhs rhs) 
    (if (or (eq? rhs zero) (eq? lhs zero)) 
     zero 
     (if (eq? rhs (inc zero)) 
      lhs 
      (add lhs (mul lhs (dec rhs)))))) 

(Live example)