RosettaCodeData/Task/Search-a-list/Racket/search-a-list-1.rkt
2023-07-01 13:44:08 -04:00

4 lines
102 B
Racket

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