查找列表

Question

我可以使用findf基礎上找到一些程序列表中的元素的元素的索引：

(define sl '("tester" "testing" "other words" "for test of")) 
(findf (lambda (x) (string-contains? x "test")) sl) 

輸出：

'("tester" "testing" "for test of") 

我怎樣才能得到滿足的要素指標一些返回true和false的過程，比如「string-contains？」以上 ？我想有以下在上述情況下的輸出：

'(0 1 3) 

Answer 1

#lang racket 

(define (find strings needle) 
    (for/list ([s strings] 
      [i (in-naturals)] 
      #:when (string-contains? s needle)) 
    i)) 

(find '("tester" "testing" "other words" "for test of") 
     "test")