en parcourant une liste en récupérant une autre liste

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*) 

J'ai cette fonction récursive qui parcourt la liste et retourne le reste d'une liste qui commence par "opm: artefacts".

Cela fonctionne sur d'autres listes. Par exemple, cela fonctionne pour la liste (1 2 3 4); Lorsque j'appelle la fonction, (get 2) renvoie (2 3 4).

test.sxml est une liste. Je l'ai vérifié avec 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()) (()()()))) ;-> '(()()) 

J'ai aussi généralisé afin que vous puissiez remettre ce que vous voulez qu'il match contre.