list - 查找列表中元素的索引

Question

我需要在方案中获取列表中元素的索引。例如:

(... 2 '(2 3 4 5))

0

(... 4 '(2 3 4 5))

2

有人可以帮忙吗？

Answer 1

像这样的东西

(define list-index
        (lambda (e lst)
                (if (null? lst)
                        -1
                        (if (eq? (car lst) e)
                                0
                                (if (= (list-index e (cdr lst)) -1) 
                                        -1
                                        (+ 1 (list-index e (cdr lst))))))))