不知道如何实现字符串连接，请指点

革天明 · 发表于 2012-12-11 11:56:44

本帖最后由革天明于 2012-12-11 13:43 编辑

有两个数组（A1 B1 C1 D1）和（A2 B2 C2）
如何生成以下表：
（A1A2 A1B2 A1C2 B1A2 B1B2 B1C2 C1A2 C1B2 C1C2 D1A2 D1B2 D1C2)
求对应的函数

lijiao · 发表于 2012-12-11 11:56:45

_$ (length (c:tt))
4536
_$

xiabin68 · 发表于 2012-12-11 12:28:29

感觉没有看懂你的意思！

革天明 · 发表于 2012-12-11 12:30:40

本帖最后由革天明于 2012-12-11 12:31 编辑

101@201@301@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@302@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@303@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@304@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@305@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@306@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@307@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@308@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@309@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@310@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@311@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
101@201@312@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0
目前只能生成这12个，但理论上应有14*27*12=4536个

如果把上面的101换成102。。。。
我要的就是这种结果

革天明 · 发表于 2012-12-11 13:44:31

xiabin68 发表于 2012-12-11 12:28
感觉没有看懂你的意思！

现在可以看懂了吗

ll_j · 发表于 2012-12-11 13:57:50

本帖最后由 ll_j 于 2012-12-11 13:58 编辑

(defun c:tt ()
(setq lst1 (list "101" "102" "103" "104" "105"
"106" "107" "108" "109" "110"
"111" "112" "113" "114"
)
)
(setq lst2 (list "201" "202" "203" "204" "205"
"206" "207" "208" "209" "210"
"211" "212" "213" "214" "215"
"216" "217" "218" "219" "220"
"221" "222" "223" "224" "225"
"226" "227"
)
)
(setq lst3 (list "301" "302" "303" "304" "305"
"306" "307" "308" "309" "310"
"311" "312"
)
)
(setq str "0.7-0-0.51-1.81-0.9-120-1.6-15-0-0")
(setq lst0 (mapcar
'(lambda (z)
(mapcar
'(lambda (y)
(mapcar
'(lambda (x)
(strcat z "@" y "@" x "@" str)
)
lst3
)
)
lst2
)
)
lst1
)
)
)

(defun c:tt () 
  (setq  lst1 (list "101"    "102"    "103"    "104"    "105" 
       "106"    "107"    "108"    "109"    "110" 
       "111"    "112"    "113"    "114" 
      ) 
  ) 
  (setq  lst2 (list "201"    "202"    "203"    "204"    "205" 
       "206"    "207"    "208"    "209"    "210" 
       "211"    "212"    "213"    "214"    "215" 
       "216"    "217"    "218"    "219"    "220" 
       "221"    "222"    "223"    "224"    "225" 
       "226"    "227" 
      ) 
  ) 
  (setq  lst3 (list "301"    "302"    "303"    "304"    "305" 
       "306"    "307"    "308"    "309"    "310" 
       "311"    "312" 
      ) 
  ) 
  (setq str "0.7-0-0.51-1.81-0.9-120-1.6-15-0-0") 
  (setq  lst0 (mapcar 
         '(lambda  (z) 
      (mapcar 
        '(lambda (y) 
           (mapcar 
       '(lambda (x) 
          (strcat z "@" y "@" x "@" str) 
        ) 
       lst3 
           ) 
         ) 
        lst2 
      ) 
    ) 
         lst1 
       ) 
  ) 
)

这是你要的么？

一个建议，不要用纯数字作为函数名，虽然不是禁止的，却容易与其它内容冲突，也可以说只是一个习惯问题，但最好还是保持一个好习惯。

革天明 · 发表于 2012-12-11 14:07:37

本帖最后由革天明于 2012-12-11 14:08 编辑

ll_j 发表于 2012-12-11 13:57
这是你要的么？

一个建议，不要用纯数字作为函数名，虽然不是禁止的，却容易与其它内容冲突，也可以说 ...

表应该出来了，但没有散开了，lst0只有14个，我自己试试能不能改

(car(car(nth 0 lst0)))的结果是：
"[url=mailto:101@201@301@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0]101@201@301@0.7-0-0.51-1.81-0.9-120-1.6-15-0-0[/url]"

也就表的导数太深了

ll_j · 发表于 2012-12-11 14:18:38

用“(setq lst4 (apply 'append (apply 'append lst0)))”就可以化开成为单层的表了，不过不建议这样做，表的元素太多，操作会很慢。

lijiao · 发表于 2012-12-11 14:21:56

(defun string-hebing (lst1 lst2 / x y)
  (apply 'append (mapcar '(lambda(x)
   (mapcar '(lambda(y)
      (strcat x y))
   lst2)
   )
lst1))
  )

革天明 · 发表于 2012-12-11 14:24:41

ll_j 发表于 2012-12-11 14:18
用“(setq lst4 (apply 'append (apply 'append lst0)))”就可以化开成为单层的表了，不过不建议这样做，表 ...

谢谢你了！程序是用来生成这个字符串的，共4536条，不过比手工输入的方法快多了，我也想过用mapcar，但用两三层的我想不到，你的程序很棒，我得再研究研究

账号		自动登录	找回密码
密码			注册

不知道如何实现字符串连接，请指点

最佳答案

相关帖子

评分

评分