如何判断输入的字符串是表中的其中一员

lch8526 · 发表于 2015-12-8 14:46:50

如何判断输入的字符串是表中的其中一员
例:输入的字符串是："12"
表是：("1" "2" "5" "7" "10" "12" "20" "30")
如果是表中的其中一员就返回此字符串，如果不是就返回nil

革天明 · 发表于 2015-12-8 14:54:58

(member "12" (List "1" "2" "5" "7" "10" "12" "20" "30"))
("12" "20" "30")
_$
只要不返回Nil就表示要查询的对象在表中，根据返回表的长度可判定其在原表中的位置

lch8526 · 发表于 2015-12-9 23:12:56

革天明发表于 2015-12-8 14:54
(member "12" (List "1" "2" "5" "7" "10" "12" "20" "30"))
("12" "20" "30")
_$

还有其他方法吗？

ivde · 发表于 2015-12-10 08:19:49

_$ (vl-some '= '("12") '("12" "23"))
T

llsheng_73 · 发表于 2015-12-10 08:56:27

本帖最后由 llsheng_73 于 2015-12-10 09:00 编辑

lch8526 发表于 2015-12-9 23:12
还有其他方法吗？

(while(not(member(setq a(if(=(setq a(strcase(getstring"\n提示[20]")))"")"20"a))'("1" "2" "5" "7" "10" "12" "20" "30"))))
;;如果输入的字符串不是所期望的则要求重新输入

革天明 · 发表于 2015-12-10 09:24:59

lch8526 发表于 2015-12-9 23:12
还有其他方法吗？

(defun check-str-lst (str lst / i flag)
  (setq i 0
flag nil
  )
  (repeat (Length lst)
(if (= (nth i lst) str)
   (setq flag T)
)
(setq i (1+ i))
  )
  flag
)
;;(setq str "12" lst (list "5" "9" "12" "13" "19"))
;;(check-str-lst str lst)
自定义函数来判断

账号		自动登录	找回密码
密码			注册

[已解答] 如何判断输入的字符串是表中的其中一员

本帖被以下淘专辑推荐:

相关帖子

点评