[求助]：请教一个看似简单的问题

ybyuan

比如有这样一些数据：21-213-9，22-9-2，110-45-22等，如何才能方便的将这些数据中的最大值分别找出来？如213，22，110。（pkpm数据处理）

newer

我写了一个，用了XDRX_API

2. <normalfont>
   
3. (defun GetMaxVal (str)
   
4.   (itoa (apply
   
5.           'max
   
6.           (mapcar
   
7.             '(lambda (x)
   
8.                (atoi x)
   
9.              )
   
10.             (xdrx_string_tok str "-")
    
11.           )
    
12.         )
    
13.   )
    
14. )
    
15. </normalfont>
    

<normalfont><br /> (defun GetMaxVal (str)<br />   (itoa (apply<br />           'max<br />           (mapcar<br />             '(lambda (x)<br />                (atoi x)<br />              )<br />             (xdrx_string_tok str "-")<br />           )<br />         )<br />   )<br /> )<br /> </normalfont><br />

测试：
命令: (getmaxval "21-213-9")
"213"

jianqiang21c

NEWER GG 就是牛哦，呵呵，有个问题要问NEWER，怎么求序列中的数字的和呀
比如（1 2 5 40 60 38）把序列中的所有数相加：）

lsjjm

(+ 1 2 5 40 60 38)

jianqiang21c

:),不是这样的了，序列是不确定的，我只是举个例子而已哦，怎么把序列的每一个数都提取出来相加呀,看似简单的问题，其实。。。嘻嘻

newer

最初由 jianqiang21c 发布
[B]:),不是这样的了，序列是不确定的，我只是举个例子而已哦，怎么把序列的每一个数都提取出来相加呀,看似简单的问题，其实。。。嘻嘻 [/B]

这个问题如果你是初学LISP,你应该考虑用循环做:

2. 
   
3. (setq a '(1 4 2 67 4))
   
4. (setq sum 0)
   
5. (foreach n a
   
6.     (setq sum (+ sum n))
   
7. )
   

<br /> (setq a '(1 4 2 67 4))<br /> (setq sum 0)<br /> (foreach n a<br />     (setq sum (+ sum n))<br /> )<br />

或者:

2. 
   
3. (setq a '(1 4 2 67 4))
   
4. (setq sum 0 i 0)
   
5. (repeat (length a)
   
6.     (setq sum (+ sum (nth i a))
   
7.              i (1+ i)
   
8.    )
   
9. )
   

<br /> (setq a '(1 4 2 67 4))<br /> (setq sum 0 i 0)<br /> (repeat (length a)<br />     (setq sum (+ sum (nth i a))<br />              i (1+ i)<br />    )<br /> )<br />

再或者:

2. 
   
3. (setq a '(1 4 2 67 4))
   
4. (setq sum 0)
   
5. (while (car a)
   
6.     (setq sum (+ sum (car a))
   
7.              a (cdr a)
   
8.    )
   
9. )
   

<br /> (setq a '(1 4 2 67 4))<br /> (setq sum 0)<br /> (while (car a)<br />     (setq sum (+ sum (car a))<br />              a (cdr a)<br />    )<br /> )<br />

上面演示了不同的循环控制方法.

但是如果你要是一直用上面的方法,说明你LISP仅仅是入门. 下面告诉你最方便的方法,也是LISP语言的魅力的地方,强大的表处理方法.


假如你的数字序列在一个表中
(setq a '(1 4 2 67 4))
(setq b (apply '+ a))  后,b就是所有的数字和了.

看你还算乖,多告诉你点, lisp就是对表进行求值,把表的第一个元素当成运算符或者函数, 表的cdr 是参数表.

所以你有了表的序列,希望运算,就是希望在表头插入运算符,LISP就求值了, 而apply 函数的作用就是把运算符或者函数名放入表头,并且求值.

所以,比如如果你希望得到所有数的乘积,那么你:

(apply '* a)

如果求表中最大的数,那么:

(apply 'max a)

不知道你理解了吗?

如果理解,我给你出个问题,你写代码贴论坛吧.

问题1: 还是上面你的数字表,现在让你把他们都变成字符串表
得到: '("1" "4" "2" "67" "4")

这个可不是上面的APPLY的应用,你自己想想,用什么方法最好?

问题2: 得到上面的字符表后, 要求把他们都连接起来,变成数字142674, 注意是数字,不是字符串. 你看看怎么做?

别让我失望哦:)

jianqiang21c

：），谢谢牛 GG指点，还给我出了两道联系题哦，下午有两节课刚看见，呵呵
我的方法：

2. <normalfont>
   
3. (setq a '(1 4 2 67 4) b nil)
   
4. (mapcar
   
5.   '(lambda (x)
   
6.      (setq x (itoa x))
   
7. (setq b (cons x b))
   
8.      )
   
9. a
   
10.   )
    
11. (setq b (reverse b))
    
12. (setq c (atoi (apply 'strcat b)))
    
13. </normalfont>
    

<normalfont><br /> (setq a '(1 4 2 67 4) b nil)<br /> (mapcar<br />   '(lambda (x)<br />      (setq x (itoa x))<br /> (setq b (cons x b))<br />      )<br /> a<br />   )<br /> (setq b (reverse b))<br /> (setq c (atoi (apply 'strcat b)))<br /> </normalfont><br />

不知道有没有让牛GG失望哦，嘻嘻

newer

最初由 jianqiang21c 发布
[B]：），谢谢牛 GG指点，还给我出了两道联系题哦，下午有两节课刚看见，呵呵
我的方法：
[/B]

可以给及格了,但是,虽然得到了(1 4 2 67 4) ---> ("1" "4" "2"  "67" "4"), 但是中间过程麻烦了,不用构建那个b表啊, macar 处理的是表的每一个元素,最后的结果还是这些处理后元素的表. 你额外处理的b表,浪费了很多时间,如果数据量大,就不能忽略了.所以:

2. <normalfont>
   
3. (setq a '(1 4 2 67 4))
   
4. (mapcar
   
5.   '(lambda (x)
   
6.      (itoa x)
   
7.   ) a
   
8. )
   
9. </normalfont>
   

<normalfont><br /> (setq a '(1 4 2 67 4))<br /> (mapcar<br />   '(lambda (x)<br />      (itoa x)<br />   ) a<br /> )<br /> </normalfont><br />

jianqiang21c

哦，明白了，嘻嘻，及格万岁

ybyuan

不知道为什么前两天我总回复不了，谢谢也没说成。
在你的提示下，我用lisp自己的函数解决了那个问题，不是不用晓东的函数，主要是有的电脑用不了他的程序。
如果你需要，我可以贴上来

闲云

请问如何将 H-500X300X8X12 转换成 “H-500X300X8X12”？

cy956

最初由 ybyuan 发布
[B]不知道为什么前两天我总回复不了，谢谢也没说成。
在你的提示下，我用lisp自己的函数解决了那个问题，不是不用晓东的函数，主要是有的电脑用不了他的程序。
如果你需要，我可以贴上来 [/B]

:)....,告诉xd,什么函数不能用,他会改进.

cy956

最初由 闲云 发布
[B]请问如何将 H-500X300X8X12 转换成 “H-500X300X8X12”？ [/B]

H-500X300X8X12 在lisp里面被理解为变量,
(不明白你干嘛这样定义).
vl有将变量名转为字符串的函数,cbx老师也
写过一个函数,大意是先princ到一个临时文件,
再读出来.

eachy

最初由 闲云 发布
[B]请问如何将 H-500X300X8X12 转换成 “H-500X300X8X12”？ [/B]

vl-ptin1-to-string

返回 LISP 数据的字符串表示，就象它是由 prin1 函数输出的一样
(vl-prin1-to-string  data)

参数

data

任意 AutoLISP 数据。

返回值

字符串，其中包含 data 的打印表示，就好像它是由 prin1 显示的一样。

样例

_$ (vl-prin1-to-string "abc")

"\"abc\""

_$ (vl-prin1-to-string "c:\\acadwin")

"\"C:\\\\ACADWIN\""

_$ (vl-prin1-to-string 'my-var)

"MY-VAR"

请参见 vl-princ-to-string 函数。


vl-ptinc-to-string

返回 LISP 数据的字符串表示，就象它是由 princ 函数输出的一样
(vl-princ-to-string  data)

参数

data

任意 AutoLISP 数据。

返回值

字符串，其中包含 data 的打印表示，就好像它是由 princ 显示的一样。

样例

_$ (vl-princ-to-string "abc")

"abc"

_$ (vl-princ-to-string "c:\\acadwin")

"C:\\ACADWIN"

_$ (vl-princ-to-string 'my-var)

"MY-VAR"

请参见 vl-prin1-to-string 函数。