当给定参数是两个项目和一个列表时,如何在 DrScheme 中将列表中的一个项目替换为另一个项目?

发布于 2024-10-13 09:59:56 字数 56 浏览 3 评论 0原文

当给定参数是两个项目和一个列表时,如何在 DrScheme 中将列表中的一个项目替换为另一个项目?

How to replace an item by another in a list in DrScheme when given paramters are two items and a list?

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(4

┾廆蒐ゝ 2024-10-20 09:59:56

map 与函数结合使用,当参数等于要替换的项目时返回替换项目,否则返回替换项目。

Use map with a function which returns the replacement item when its argument is equal to the item you want to replace and the argument otherwise.

你的背包 2024-10-20 09:59:56
; replace first occurrence of b with a in list ls, q? is used for comparison
(define (replace q? a b ls)
  (cond ((null? ls) '()) 
    ((q? (car ls) b) (cons a (cdr ls)))
    (else (cons (car ls) (replace a b (cdr ls))))))
; replace first occurrence of b with a in list ls, q? is used for comparison
(define (replace q? a b ls)
  (cond ((null? ls) '()) 
    ((q? (car ls) b) (cons a (cdr ls)))
    (else (cons (car ls) (replace a b (cdr ls))))))
罪歌 2024-10-20 09:59:56
; replace first occurrence of b with a in list ls, q? is used for comparison
(define (replace q? a b ls)
  (cond ((null? ls) '()) 
        ((q? (car ls) b) (replace q? a b (cons a (cdr ls))))
        (else (cons (car ls) (replace a b (cdr ls))))))
; replace first occurrence of b with a in list ls, q? is used for comparison
(define (replace q? a b ls)
  (cond ((null? ls) '()) 
        ((q? (car ls) b) (replace q? a b (cons a (cdr ls))))
        (else (cons (car ls) (replace a b (cdr ls))))))
殤城〤 2024-10-20 09:59:56

这会将列表 lst 中所有出现的 fsym 替换为 DrRacket 中的符号 tsym

(define (subst fsym tsym lst)

(cond

[(null? lst) lst]

[eq? (first lst) fsym)(cons tsym (subst fsym tsym (rest lst)))]

[else (cons (first lst)(subst fsym tsym (rest lst)))]))

(subst 'a 'b '(f g a h a))

;the results will be as follows.

'(f g b h b)

This replaces all the occurrences of fsym in the list lst to the symbol tsym in DrRacket

(define (subst fsym tsym lst)

(cond

[(null? lst) lst]

[eq? (first lst) fsym)(cons tsym (subst fsym tsym (rest lst)))]

[else (cons (first lst)(subst fsym tsym (rest lst)))]))

(subst 'a 'b '(f g a h a))

;the results will be as follows.

'(f g b h b)
~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文