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

4 lines
105 B
Racket

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