RosettaCodeData/Task/Search-a-list/Racket/search-a-list-1.rkt
Ingy döt Net 86c034bb8b new files
2013-04-10 12:38:42 -07:00

4 lines
102 B
Racket

(define (index xs y)
(for/first ([(x i) (in-indexed xs)]
#:when (equal? x y))
i))