[LISP程序]：有没有提取最大数字的程序

cadking

问题：如何从  12－9－5 中提取出12这个数字（最大的一个）并用这个最大值替换整个字符窜？

XDSoft

最初由 cadking 发布
[B]问题：如何从  12－9－5 中提取出12这个数字（最大的一个）并用这个最大值替换整个字符窜？ [/B]

下面使用了XDRX_API函数，请加载XDRX_API后使用。

2. 
   
3. [font=courier]
   
4. (setq str "12-9-5")
   
5. (setq mstr (xdrx_string_tok str "-"))
   
6. (setq maxstr (itoa (apply 'max (mapcar 'atoi mstr))))
   
7. [/font]
   

<br /> [font=courier]<br /> (setq str "12-9-5")<br /> (setq mstr (xdrx_string_tok str "-"))<br /> (setq maxstr (itoa (apply 'max (mapcar 'atoi mstr))))<br /> [/font]<br />

测试：

2. [font=courier]
   
3. 命令: (setq a (xdrx_string_tok "12-9-5" "-"))
   
4. ("12" "9" "5")
   
5. 
   
6. 命令: (setq b (mapcar 'atoi a))
   
7. (12 9 5)
   
8. 
   
9. 命令: (setq c (apply 'max b))
   
10. 12
    
11. [/font]
    

[font=courier]<br /> 命令: (setq a (xdrx_string_tok "12-9-5" "-"))<br /> ("12" "9" "5")<br /> <br /> 命令: (setq b (mapcar 'atoi a))<br /> (12 9 5)<br /> <br /> 命令: (setq c (apply 'max b))<br /> 12<br /> [/font]<br />

LUCAS

2. 
   
3. 我想你的函数基本上与xdrx_string_tok有些不用
   
4.      (xdrx_string_tok "abc;;def;;ef;g;" ";;")=("abc" "def" "ef" "g")
   
5.           (xdrx_string_tok "abc;;def;;ef;g;" ";") =("abc" "def" "ef" "g")
   
6.           (xdrx_string_tok "abcddefgddzdf" "d") =("abc" "efg" "z" "f")
   
7.           (xdrx_string_tok "abcddefgddzdf" "dd") =("abc" "efg" "z" "f")
   
8.           (xdrx_string_tok ",1,2" ",")=("1" "2")
   
9.           (xdrx_string_tok ",1,2,,,3," ",")=("1" "2" "3")
   
10. 
    
11.           (SPLIT "abc;;def;;ef;g;" ";;")=("abc" "def" "ef;g;")
    
12.           (SPLIT "abc;;def;;ef;g;" ";") =("abc" "" "def" "" "ef" "g" "")
    
13.           (SPLIT "abcddefgddzdf" "d") =("abc" "" "efg" "" "z" "f")
    
14.           (SPLIT "abcddefgddzdf" "dd")=("abc" "efg" "zdf")
    
15.           (SPLIT ",1,2" ",")=("" "1" "2")
    
16.           (SPLIT ",1,2,,,3," ",")=("" "1" "2" "" "" "3" "")
    
17. 
    
18. ;;BY LUCAS
    
19. ;;USAGE:(TT "1;12-9-5" ";-")
    
20. ;;功能同xdrx_string_tok
    
21. (defun TT (STR FG / STR1 LL WW N)
    
22.   (setq        N 1
    
23.         STR1 ""
    
24.   )
    
25.   (repeat (strlen STR)
    
26.     (if        (wcmatch FG (strcat "*" (setq WW (substr STR N 1)) "*"))
    
27.       (progn
    
28.         (if (/= STR1 "")
    
29.           (setq LL (append LL (list STR1)))
    
30.         )
    
31.         (setq STR1 "")
    
32.       )
    
33.       (setq STR1 (strcat STR1 WW))
    
34.     )
    
35.     (setq N (1+ N))
    
36.   )
    
37.   (if (/= STR1 "")
    
38.     (setq LL (append LL (list STR1)))
    
39.   )
    
40.   LL
    
41. )
    

<br /> 我想你的函数基本上与xdrx_string_tok有些不用<br />      (xdrx_string_tok "abc;;def;;ef;g;" ";;")=("abc" "def" "ef" "g") <br />           (xdrx_string_tok "abc;;def;;ef;g;" ";") =("abc" "def" "ef" "g") <br />           (xdrx_string_tok "abcddefgddzdf" "d") =("abc" "efg" "z" "f") <br />           (xdrx_string_tok "abcddefgddzdf" "dd") =("abc" "efg" "z" "f")<br />           (xdrx_string_tok ",1,2" ",")=("1" "2") <br />           (xdrx_string_tok ",1,2,,,3," ",")=("1" "2" "3")<br /> <br />           (SPLIT "abc;;def;;ef;g;" ";;")=("abc" "def" "ef;g;") <br />           (SPLIT "abc;;def;;ef;g;" ";") =("abc" "" "def" "" "ef" "g" "") <br />           (SPLIT "abcddefgddzdf" "d") =("abc" "" "efg" "" "z" "f")<br />           (SPLIT "abcddefgddzdf" "dd")=("abc" "efg" "zdf")<br />           (SPLIT ",1,2" ",")=("" "1" "2")<br />           (SPLIT ",1,2,,,3," ",")=("" "1" "2" "" "" "3" "")<br /> <br /> ;;BY LUCAS<br /> ;;USAGE:(TT "1;12-9-5" ";-")<br /> ;;功能同xdrx_string_tok<br /> (defun TT (STR FG / STR1 LL WW N)<br />   (setq        N 1<br />         STR1 ""<br />   )<br />   (repeat (strlen STR)<br />     (if        (wcmatch FG (strcat "*" (setq WW (substr STR N 1)) "*"))<br />       (progn<br />         (if (/= STR1 "")<br />           (setq LL (append LL (list STR1)))<br />         )<br />         (setq STR1 "")<br />       )<br />       (setq STR1 (strcat STR1 WW))<br />     )<br />     (setq N (1+ N))<br />   )<br />   (if (/= STR1 "")<br />     (setq LL (append LL (list STR1)))<br />   )<br />   LL<br /> )<br />

lsjjm

不用那么复杂吧？下面简单的程序码就能解决问题，还无需调用XDRX_API函数：
(setq a (vl-string-translate "-" " " "12-5-9"))
(setq b (apply 'max (eval (read (strcat "'(" a ")")))))

li809

能增加数字的数量统计吗