Question

假设(list 'red 'blue 'green 'yellow)和(list 'black 'red 'orange 'green)，那么它应该产生2，因为有2个相同的元素。我只知道如何在完全相同的位置找到相同的元素如下：

(define (helper l1 l2)
  (cond
    [(equal? l1) empty]
    [(equal? l2) empty]
    [(equal? (first l1) (first l2)) true]
    [else (rest l1) (rest l2)]))

请帮助。：）

Answer 1

如果您不是作为家庭作业练习，请使用Racket的set library来获取ÓscarLópez的代码。

#lang racket

(require racket/set)

(define number-same (compose1 length set-intersect))

(number-same '(red blue green yellow)
             '(black red orange green))

Answer 2

这是我的代码，用于在球拍上的两个列表中找到相同的元素

(define (cek x y)
 (cond
 [(null? y) 0]
 [(eq? x (car y)) (+ 1 (cek x (cdr y)))]
 [else (cek x (cdr y))]
 )
)
(define (sifat x y)
 (cond
 [(null? x) 0]
 [else (+ (cek (car x) y) (sifat (cdr x) y))]
 )
)

在球拍中的两个列表中查找相同的元素

2 个答案: