the_coder said on 6/4/08

Wed, 04 Jun 2008 22:47:32 GMT

Slightly better:

(define (list-index s los)

  (cond ((null? los) -1)

        ((eq? s (car los)) 0)

        (else

         (let ((res (list-index s (cdr los))))

           (if (= res -1)

               -1

               (+ res 1))))))

Comments on snippet: 'list-index (Scheme)'

the_coder said on 6/4/08