두 개의 목록에서 같은 요소를 라켓으로 찾으십시오.

Question

(list 'red 'blue 'green 'yellow) 및 (list 'black 'red 'orange 'green)이라고 가정하면 두 개의 동일한 요소가 있으므로 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

숙제로하지 않을 경우, 라켓의 set library을 사용하는 Óscar Ló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))] 
) 
)