Найти индексы элементов в списке

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