yoyoho 发表于 2008-8-12 23:05:00

[求助]请教有关列表问题

<table height="100%"><tbody><tr height="100%"><td valign="top"><b></b><font face="Simsun" size="2">如何将(SETQ AAA '('PPP' 100 'QQQ' 500 1000))<br/>以运行LISP程序修正为'(PPP 100 QQQ 500 1000)<br/>,即删除 ' 符号</font>
                                </td><td valign="top" align="right" width="10%" nowarp=""><input class="btn" type="button" style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体;"/><select class="FormSelect" name="myfont" style="FONT-SIZE: 9pt; VISIBILITY: visible; FONT-FAMILY: 宋体;">
                                                <option value="9pt">9pt</option>
                                                <option value="10pt">10pt</option>
                                                <option value="11pt">11pt</option>
                                                <option value="12pt">12pt</option>
                                                <option value="13pt">13pt</option>
                                                <option value="15pt">15pt</option></select>
                                </td></tr><tr><td colspan="2"><font id="text1" face="宋体,verdana, arial, helvetica" style="FONT-SIZE: 10pt;"></font></td></tr></tbody></table>

Andyhon 发表于 2008-8-13 08:35:00

<p>这是 Lisp 判读的结果<br/>Command: (SETQ AAA '('PPP' 100 'QQQ' 500 1000))<br/>((QUOTE PPP) (QUOTE 100) (QUOTE QQQ) (QUOTE 500) 1000)</p><p>似乎有违本意,请考虑重新安排 '列表'</p>

byghbcx 发表于 2008-8-13 09:49:00

<p>我不知道楼主要这样处理干什么?</p><p>(SETQ AAA '('PPP' 100 'QQQ' 500 1000))<br/>(mapcar '(lambda(x) (if (= (type x) 'LIST) (if (= (type (CADR X)) 'sym) (read (vl-symbol-name (CADR X))) (CADR X)) X)) aaa)</p>

yoyoho 发表于 2008-8-13 10:56:00

<p>感谢两位帮忙.</p><p>谢谢!</p>
页: [1]
查看完整版本: [求助]请教有关列表问题