несвязанный идентификатор в модуле - PullRequest
Новая
       8

несвязанный идентификатор в модуле

0 голосов
/ 13 мая 2018

Я пытаюсь завершить два массива.Например, l1 подобен '(1 2 3), а другой - l2 подобен' (2 1 3).Должен вернуть #t.Но есть ошибка при запуске.set-euqal ?: несвязанный идентификатор в модуле: set-euqal? 

(define check_length
    (lambda (a b)
        (cond
          ((= a b)#t)
          ((> a b)#f)
          ((< a b)#f))))

(define (subset? l1 l2)
    (or (null? l1)
        (and (member  (car l1) l2)
             (subset? (cdr l1) l2))))

(define (set-equal? l1 l2)
    (and (subset? l1 l2)
         (subset? l2 l1)))

(define equals
    (lambda (BST value)
         (cond
           ((bst-isempty? BST) #f)
           ((check_length (length BST) (length value)))
           ((set-euqal? (BST) (value)))
           (else #f))))
...