快速取得字符在表中的位置，谢谢

nxchenjk · 发表于 2016-10-18 22:30:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

怎么样不用循环就能快速取得字符在表中的位置，谢谢

比如在表 ’（"a" "b" "c" "d")中找 ”c" 能够快速的返回 2

Lisphk · 发表于 2016-10-18 22:41:21

命令: (setq a '("a" "b" "c" "d"))
("a" "b" "c" "d")

命令: (vl-position "c" a)
2

newer · 发表于 2016-10-18 22:48:35

其实不必纠结是否循环，就是VL-POSITION里面也可能用循环。只是现成的函数方便点罢了。自己想不起，自己写个自定义的函数也一样的。

这样也行

(defun _position(strl str / str1)
   (if (setq str1 (member str strl))
     (- (length strl)(length str1))
   )
)

命令: (_position a "d")
3

marting · 发表于 2016-10-18 23:02:01

也来一个

(defun _position(strl str / i)
(setq i -1)
(if (vl-some '(lambda(x)(setq i (1+ i))(= x str)) strl)
i
)
)

命令: (_POSITION a "c")
2

Lispboy · 发表于 2016-10-19 01:03:26

不一定适用循环效率的就不高，同样的循环结构可能不同的代码效率也不一样，下面这段代码不一定慢

(defun _position (strl str / i str1 tf)
   (setq i -1 tf t)
   (while (and tf (setq str1 (car strl)))
      (setq i (1+ i))
      (if (= str1 str)
        (setq tf nil)
        (setq strl (cdr strl))
     )
   )
   (if (and (not tf) strl)
     i
   )
)

yoyoho · 发表于 2016-10-19 07:16:29

啥也不说了，感谢诸位分享了！

cable2004 · 发表于 2016-10-19 09:23:01

啥也不说了，感谢楼主分享哇！

nxchenjk · 发表于 2016-10-23 08:30:08

谢谢。各位老师。

nxchenjk · 发表于 2016-10-23 08:33:18

newer 发表于 2016-10-18 22:48

差别很大。几千个点，循环个几十次，很慢的。现在用你函数快多了。谢谢，老师指点

yjch · 发表于 2016-10-23 09:53:23

学到了更多，思考更多谢谢，

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