我想在列表中搜索一个元素,比如这个(它是一个列表列表)
(name1 (name2 (name3 name4) (name5 (name6))) (name7 (name8 name9)) (name10 (name11 name12)) (name13))
当我找到那个元素时,我想添加它。像搜索name10
然后将新名称添加到name11
andname12
组。任何帮助深表感谢!
(define (adder name2badded indexname treenode)
(display treenode)
(newline)
(cond
((null? treenode)#f) ;"Tree is null"))
((pair? treenode)
(if (adder name2badded indexname (car treenode))
(display "Gotcha!")
(adder name2badded indexname (cdr treenode))
)
) ;END pair?
(else
(eq? indexname treenode)
);END else
);END Cond
)
这是我到目前为止所拥有的,它会找到我想要添加它的位置,但我无法添加到那个位置。