Någon som kan scheme kan väl tala om för mig hur fan man hittar en eftersökt komponent i en lista med interna listor, ex;
(findKomponent? 2 '(1 3 4 (8 7) 0 (2 5 6)))
Här är en funktion som hittar detta endast i en lista;
(define (findKomponent? val lst)
(cond ((null? lst) #f)
((equal? (car lst) val) #t)
(else (findKomponent? val (cdr lst)))))
(findKomponent? 2 '(1 2 3 4 5 6))
/Trött på detta nu
(findKomponent? 2 '(1 3 4 (8 7) 0 (2 5 6)))
Här är en funktion som hittar detta endast i en lista;
(define (findKomponent? val lst)
(cond ((null? lst) #f)
((equal? (car lst) val) #t)
(else (findKomponent? val (cdr lst)))))
(findKomponent? 2 '(1 2 3 4 5 6))
/Trött på detta nu
