[已解决][求助]一个不知道可不可能实现的功能

dinosaurhxe

(setq lst (list "xyz" "ab" "cd" ""ef" ""gh"))

有这么一个表，我想实现以下功能，不知道可不可能。将表中的第一个元素作为基本元素，其后的每个元素加上jk成为一个变量，其值为"xyz-1"等，1这个数字即们该元素在表中的位置-1，如下

abjk-->"xyz-1"
cdjk-->"xyz-2"
efjk-->"xyz-3"
ghjk-->"xyz-4"

说简单点就是把表中的每个元素作为一个变量，不知道我说清楚没有？

ZZXXQQ

这个可以用LISP实现。

(setq lst (list "xyz" "ab" "cd" ""ef" ""gh"))
(setq i -1 lst1 (list))
(repeat (length lst)
 (setq lst1 (cons (read (strcat (nth (setq i (1+ i)) lst) "-" (itoa (1+ i)))) lst1))
)
(setq lst1 (reverse lst1))

表lst1中就是变量名的表。

dinosaurhxe

可能是我没有说清楚引起版主的误解。

我要的变量名是表中的元素+特定字符。

变量的值是该变量在原表中的位置。

ZZXXQQ

(setq lst (list "xyz" "ab" "cd" "ef" "gh"))
(setq i -1 lst1 (list))
(repeat (length lst)
 (setq lst1 (cons (read (strcat (nth (setq i (1+ i)) lst) "-" (itoa (1+ i)))) lst1))
)
(setq lst1 (reverse lst1))

程序运行结果如下：

(XYZ-1 AB-2 CD-3 EF-4 GH-5)

再运行：

(setq i -1)
(repeat (length lst1)
 (set (nth (setq i (1+ i)) lst1) (1+ i))
)

就可以将表中的位置置入变量中。

dinosaurhxe

2. (setq lst (list "xyz" "ab" "cd" "ef" "gh"))
3. (setq xyz (car lst))
4. (setq lst (cdr lst))
5. (setq i 0)
6. (foreach nr lst
7. (set (read nr) (strcat xyz "-" (itoa (setq i (1+ i)))))
8. ) ;_ 结束foreach

(setq lst (list "xyz" "ab" "cd" "ef" "gh")) (setq xyz (car lst)) (setq lst (cdr lst)) (setq i 0) (foreach nr lst (set (read nr) (strcat xyz "-" (itoa (setq i (1+ i))))) ) ;_ 结束foreach

感谢版主指点，我已经得到我所要的结果了！因以前一直用setq，从来没有用过set，看到版主的提示之后才想起来。
再次感谢版主！