ошибка в функции положения в Лиспе

Question

Если у меня есть список, как этот

(1 2 3) И я хочу, чтобы найти индекс 2, я использовал функцию

(position '3 '(1 2 3)) 

при составлении этого произошла ошибка

. , position: undefined; не может ссылаться на неопределенный идентификатор

Answer 1

Если вы правильно поняли, вы просто хотите найти индекс элемента в списке. Я не нашел процедуру сборки в для этого, но вы можете сделать это легко себя:

(define (position elt lst) 
    (let loop ((lst lst) (i 0)) 
    (cond 
     ((null? lst) #f) 
     ((eq? elt (car lst)) i) 
     (else (loop (cdr lst) (+ 1 i)))))) 

затем

(display (position '3 '(1 2 3))) 
=> 2