在Racket中检查元素是否存在于列表中

Question

如何在不使用lambda的情况下检查一个元素是否存在于列表中，这两个参数都是从函数调用中获取的？我尝试了member?但是无法得到结果。

(define (find-string (lst lst str ua)
    (cond ((member? ua lst) #t)
    (else #f))

- Mihir

---

看起来你正在尝试在过程声明中指定每个参数的类型？但在Racket中并不是这样工作的。 - Óscar López

这个可能会有所帮助：https://dev59.com/X0fRa4cB1Zd3GeqP5wpE - GDP2

Answer 1

使用成员变量是可行的，只是在函数前面添加额外的"？"是不必要的。

 (member 2 (list 1 2 3 4)) [1]

将返回true

另一种方法是编写自己的递归函数

(define (is-in-list list value)
 (cond
  [(empty? list) false]
  [(= (first list) value) true]
  [else (is-in-list (rest list) value)]))

[1]https://docs.racket-lang.org/reference/pairs.html#%28def._%28%28lib._racket%2Fprivate%2Fbase..rkt%29._member%29%29

- Amandeep Singh

---

我不确定你是否在提问。请避免使用需要在结尾加问号的句子。 - Noel Widmer

"?" 是一个运算符，不是用来提问的，现在已经添加了引号。 - Amandeep Singh

Answer 2

首先，使用lambda和ormap的方法（用于测试）：

; ismember? :: String List-of-Strings -> Bool
(define (ismember1? str strs) (ormap [lambda (s) (string=? s str)] strs) )

第二种方法，使用“for/or”，没有使用“lambda”：

(define (ismember2? str strs) 
   (for/or ([s (in-list strs)])
      (string=? s str) ) )

第三种方式，使用member，不使用lambda：

(define (ismember3? str strs) (if [member str strs] #t #f) )

请参考官方的 Racket 文档 member。

注意，最后一个版本在性能方面实际上是最差的。

- AlQuemist

---

但是，OP的参数顺序被颠倒了。因此，他们打算的函数可能更好地命名为“包含”。 - Will Ness