list-position   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define list-position
   (lambda (obj lst)
      (let loop ((i 0) (lst lst))
   (if (null? lst) #f
       (if (eqv? (car lst) obj) i
     (loop (+ i 1) (cdr lst)))))))


Back to Index