我正在尝试实现两个函数：subterm和replace。
- subterm将两个列表作为参数，并打印在耗尽第二个列表后到达的第一个列表中的元素
例如，调用
(subterm '(1 2 (3 4 5) (6 (7 (8) 9 10))) '(4 2 2 1))
应返回
8
我想出了以下功能，可以打印列表中的第n个元素：
(define (subterm list n)
(cond
((null? list) '())
((= n 1) (car list))
(else (subterm (cdr list) (- n 1)))))
- replace获取3个列表，并返回在列表其余部分不变的情况下替换达到的值的结果
例如调用：
(replace '(1 2 (3 4 5) (6 (7 (8) 9 10))) '(11 12) '(4 2 2 1))
应返回：
'(1 2 (3 4 5) (6 (7 ((11 12)) 9 10)))
再次，我提出了这样的代码，它将第一个列表中的第n个元素替换为第二个列表，使第一个列表的其余部分保持不变：
#lang racket
(define (replace list elem n)
(cond
((empty? list) empty)
((eq? n 1) (cons elem (cdr list)))
(#t (cons (car list) (replace (cdr list) elem (- n 1))))))
如何修改这些函数以接受两个列表？
编辑1:一些例子：
> (subterm '(1 2 3 4 5) '(3))
3
> (subterm '(1 2 3 4 5) '(2))
2
> (subterm '(1 2 (3 4 5) 6 7) '(3 2))
4
考虑这个例子：
> (subterm '(1 2 (3 4 5) (6 (7 (8) 9 10))) '(4 2 2 1))
8
在上面的例子中，子任务有两个列表。然后它读取第二个列表。第二个列表基本上告诉子任务返回第一个列表（1 2（3 4 5）（6（7（8）9 10））的第二个元素（7（7）9 10。
> (subterm '1 '())
1
> (subterm '(1 2 (3 4 5) (6 (7 (8) 9 10))) '())
'(1 2 (3 4 5) (6 (7 (8) 9 10)))
> (replace '(1 2 3 4 5) '(6 7 8) '(3))
'(1 2 (6 7 8) 4 5)
> (replace '(1 2 3 4 5) '(6 7 8) '(2))
'(1 (6 7 8) 3 4 5)
考虑这个例子：
> (replace '(1 2 (3 4 5) 6 7) '(8 9) '(3 2))
'(1 2 (3 (8 9) 5) 6 7)
replace包含三个列表：第一个列表是必须替换其中元素的列表。第二个列表包含必须放入第一个列表的新元素。第三个列表包含必须替换元素的位置。因此，它基本上取代了第一个列表（12（3 4 5）6 7）的第三个元素（3 4）的第二个元素（4）。
> (replace '(1 2 (3 4 5) (6 (7 (8) 9 10))) '(11 12) '(4 2 2 1))
'(1 2 (3 4 5) (6 (7 ((11 12)) 9 10)))
> (replace '(1 2 (3 4 5) (6 (7 (8) 9 10))) 1000 '(4 2 2 1))
'(1 2 (3 4 5) (6 (7 (1000) 9 10)))
> (replace '(1 2 (3 4 5) (6 (7 (8) 9 10))) 'x '())
'x
> (replace '1 '(2 3 4) '())
'(2 3 4)
首先，您将名称subterm用于两个不同的函数。让我们将您提供的版本称为list-ref的代码示例，并使(car list)的情况在n=0而不是1:时发生
(define (list-ref list n)
(cond
((null? list) '())
((= n 0) (car list))
(else (list-ref (cdr list) (- n 1)))))
事实证明，list-ref已经在racket库中了，所以您不应该一开始就实现它。因此，使用它，您的subterm是微不足道的：
(define (subterm main-list path)
(match path
('() #f)
((list n) (list-ref main-list (sub1 n)))
((cons n rest) (subterm (list-ref main-list (sub1 n)) rest))))
我试图对replace过程进行编码。据我所知，这是一场艰难的比赛。然而，我设法使它工作，至少与你的例子。你可以阅读它，试着理解它，然后尝试修改它以与任何其他列表一起使用。我相信你需要一个额外的功能来使它正常工作。
#lang racket
(require racket/trace)
(define (replace list elem n)
(cond
((empty? list) empty)
((eq? n 1) (cons elem (cdr list)))
(#t (cons (car list) (replace (cdr list) elem (- n 1))))))
(define replace-with-lists
(λ (items replacement path res aux)
(letrec ([splits (list-split-at items (car path) '())])
(cond
((empty? (cdr path))
; (append
; (car (list-ref res 0))
; (list (append
; (car (list-ref res 1))
; (list (append (car aux)
; (replace (list-ref aux 1) replacement (car path))
; (list-ref aux 2)))))))
(let ([result (replace splits replacement 2)])
(replace aux
(append (car result)
(list (cadr result))
(caddr result)
)
2)))
(else
(replace-with-lists
(list-ref splits 1)
replacement
(cdr path)
(foldr cons (list (list
(list-ref splits 0)
(list-ref splits 2)))
res)
splits
)))
))
)
(define list-split-at
(λ (lst place res)
(cond
((empty? lst) res)
((= 1 place) (foldl cons
(list (cdr lst))
(foldr cons (list res) (list (car lst)))
))
(else
(list-split-at (cdr lst) (- place 1) (foldr cons (list (car lst)) res))
)
)))
(trace replace-with-lists)
好吧，我在你的编程语言课上，我知道这项作业明天就要交了，所以我不想帮你太多，也不想给你答案。我会尽力给你一些提示，以防你还在挣扎。以下提示用于替换函数。
首先，你需要一个基本案例。我们收到了以下
（替换"（1 2（3 4 5）（6（7（8）9 10））"x"（）"）'x
（替换"1"（2 3 4）"（））'（2 3 4）
要做到这一点，我们只需要一个检查空列表的条件语句。很明显，如果最后一个参数是一个空列表，我们需要"返回"倒数第二个参数。（在您的代码中，这将是"elem"one_answers"n"）
现在是困难的部分。一旦你意识到scheme/rack有多少内置功能，这真的很简单。这是我唯一使用的，但它们使解决问题变得容易得多。
（追加）（列表）（拍）（下降）（list ref）//这个比什么都方便。
交车日期过后，我将发布我的解决方案。希望这能有所帮助。
编辑：由于这项任务还有几分钟就要完成了，我会发布我的解决方案，因为我不认为这会被视为作弊。
郎球拍
(define (subterm term1 lat)
(cond
[(eqv? lat '()) term1]
[(eqv? (car lat)1) (subterm (car term1) (cdr lat))]
[else (subterm (cdr term1) (cons(-(car lat)1)(cdr lat)))])
)
(define (replace term1 term2 lat)
(cond
[(eqv? lat '()) term2]
[else (append(take term1 (-(car lat)1)) (list(replace (list-ref term1 (-(car lat)1)) term2 (cdr lat))) (drop term1 (car lat)))]))
这些都是功能。