cl:position   scheme


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

Implementation

(define (cl:position obj lst)
  (define pos (lambda (n lst)
    (cond ((null? lst) #f)
          ((equal? obj (car lst)) n)
          (else (pos (+ 1 n) (cdr lst))))))
  (pos 0 lst))
;@


Back to Index

Similar Entries