方案编程：与列表交互时函数中的合同违反错误

Question

我被指示执行以下操作： ( insertBag List Item ) -- 返回一个新包，表示在给定列表中插入给定项目的结果

;Function Two: insertBag
;@Param: List, Item
;@Return: The new bag that represents the result of
;inserting the given item in the given list.
;Important Note: There are two Helper functions for insertBag
;Helper Function One: newPair
;Helper Function Two: addPair 

(define (insertBag List Item)

 ;Check if we have an Empty List
 (if (null? List)
  (newPair Item)
   
   (if (string=? (car(car List)) Item)
    (cons (addPair (car List)) (cdr List))
    (cons (car List) (insertBag(cdr List) item))
   )
 )
)

;Helper Function One: newPair

(define (newPair Item)
 (cons Item 1)
)

;Helper Function Two: addPair

(define (addPair List)
 (cons (car List) (+ 1 (cdr List)))
)


;Test Run Case for insertBag
(insertBag '(("a".2)("d".1)("c".3)) "a"); Input for A

但是，我收到以下错误：

; +: contract violation
;   expected: number?
;   given: '(0.2)
;   argument position: 2nd
; [,bt for context]

请注意，我被指示不要使用 lambda。我会很感激一些帮助！ 谢谢！ >

Answer 1

示例输入有问题，您必须在点之间写下空格：'("a".2) 是一个以 "a" 和 0.2 为元素的列表，而 '("a" . 2) 是一个cons 与car 部分中的"a" 和cdr 部分中的2 配对。通过这个小改动，您的代码将按预期工作：

(insertBag '(("a" . 2) ("d" . 1) ("c" . 3)) "a")