0

と を仮定する(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)]))

助けてください。:)

4

2 に答える 2

3

これを宿題の演習として行っていない場合は、Racket のセット ライブラリを使用した Ó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))
于 2014-06-11T15:58:30.963 に答える