VL有变量组吗？

shenfjliu

VL有变量组吗？比如我想A1+a2+a3+.....A100,可否设置成A(n),n=1,2,1,.......

newer

你可以用表(seteq lst (list 1 2 3 4 5))
(nth 0 lst) ===1
(nth 1 lst) === 2
......
(nth 4 lst) ===5

shenfjliu

感谢newer。我也知道以上用法，但是感觉还是不方便。如果VL可以像fortran一样有变量组就好了！

/db_自贡黄明儒_

shenfjliu 发表于 2016-12-24 21:56

lisp只有表，没有数组，习惯了就好了。我觉得那个数组挺麻烦的。

newer

shenfjliu 发表于 2016-12-24 21:56

每种语言有自己的语法规则，你习惯了LISP的表就会发现，表是一种很强的数据结构，强大的表处理结构和方式，也是LISP为什么被用在人工智能领域的主要原因。

shenfjliu

感谢/db_自贡黄明儒_
只是我觉得数组比较方便。举个例子，比如我有30个变量a1,a2....A30 ，需要把变量A（n）的数值变成字符串,真是很麻烦。如果有数组，(setq a(n)(itoa a(n)))即可，呵呵！

marting

shenfjliu 发表于 2016-12-24 22:09

什么语言能让你 (setq a[n] (itoa a[n])) 一句就能完成数组所有元素的赋值？ 你不还得循环吗?[code]
for (int j=0;j<30;j++)
{
     a [j] = itoa(a[j ]);
}

在说了，其他高级语言是有数据类型的，整数数组里面能允许你存字符串？编译能过吗？

newer

shenfjliu 发表于 2016-12-24 22:09

如果LISP的表

(setq a '(1 2 3 4 5 6 7 8 9))

你说麻烦，你想把他们变成字符串，你会怎么写？ 试试写下贴上来。

marting

楼主对LISP的表处理还没理解到位
LISP要方便的多

拿上面N版的例子

(setq a '(1 2 3 4 5 6 7 8 9))

你想把他们变成字符串，只一行

(mapcar 'itoa a)

命令: (mapcar 'itoa a)
("1" "2" "3" "4" "5" "6" "7" "8" "9")


更狠点，任何类型的，都变成字符串

(setq a '(1 2.0 34 (1 2 3.0) 34.333 t nil))
(mapcar 'vl-princ-to-string a)

命令: (mapcar 'vl-princ-to-string a)
("1" "2.0" "34" "(1 2 3.0)" "34.333" "T" "nil")

shenfjliu

非常感谢各位！我是一个VL语言的二把刀。感谢各位指导。
@marting  你的思路对我来说很新奇，mapcar命令我还不熟，研究一下。谢谢！在fortran里肯定会用到循环，我只是开玩笑写了一行。见谅了。
@newer  我用的笨方法，一行一行的写。
所以我想有个简便的方法。

newer

shenfjliu 发表于 2016-12-25 11:01

熟练了mapcar你就理解了LISP的表，用mapcar搜索下论坛看看。