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

7 lines
235 B
Racket

(define haystack '("Zig" "Zag" "Wally" "Ronald" "Bush" "Krusty" "Charlie" "Bush" "Bozo"))
(for/list ([needle '("Bender" "Bush")])
(index haystack needle))
(for/list ([needle '("Bender" "Bush")])
(index-last haystack needle))