查找列表

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")