через список, получающий другой список

Question

(define *graph* (read (open-input-file "test.sxml"))) 

(define get 
    (lambda (l) 
    (cond ((null? l) '()) 
      ((equal? 'opm:artifacts (car l)) l) 
      (else (get (cdr l)))))) 

(get *graph*) 

У меня есть эта рекурсивная функция, которая проходит через список и возвращает остальную часть списка, которая начинается с «opm: артефакты».

Работает в других списках. Например, для списка (1 2 3 4); когда я вызываю функцию, (get 2) возвращает (2 3 4).

test.sxml есть список. Я проверил его с list?.

Answer 1

(define (get l) 
    (match l 
    [(? null?) '()] 
    [(list 'opm:artifacts _ ...) l] 
    [(list _ rs ...) (get rs)])) 

Answer 2

(define (get mat ls*) 
    (define (get* ls) 
    (cond ((null? ls) '()) 
      ((and (list? (car ls)) (not (null? (car ls)))) 
      (if (equal? mat (caar ls)) 
       (car ls) 
       (let ((sub-result (get* (car ls)))) 
       (if (null? sub-result) 
        (get* (cdr ls)) 
        sub-result)))) 

      (else (get* (cdr ls))))) 
    (let ((result (get* ls*))) 
    (if (null? result) 
     '() 
     (cdr result)))) 

(get 'b '(a (b c d) e)) ;-> '(c d) 
(get 'b '((a (b c d) e))) ;-> '(c d) 
(get '() '(4 6() (2()) (()()()))) ;-> '(()()) 

Я также обобщил его, так что вы можете передать в том, что вы хотите, чтобы соответствовать против.