求和

cable2004 · 发表于 2014-11-18 19:24:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 cable2004 于 2014-11-22 15:52 编辑

(setq a (list '(1 1 1 1 1 1) '(1 1 1 1 1) '(1 1 1 1) '(1 1 1)))
(setq b (list '(2 2 2 2) '(2 2 ) '(2)))
(setq c (list '(3 3 3) '(3 3) '(3)))

求(A表中一个+B表中一个+C表中一个)<10
(A表中一个+B表中一个)<10
(B表中一个+C表中一个)<10
(A表中一个+C表中一个)<10的集合

比如：'(1 1 1 1 1 1)+'(2 2 )=10
'(1 1 1)+'(2)+'(3)=8

Free-Lancer · 发表于 2014-11-18 19:29:29

表中表就是排列组合了

cable2004 · 发表于 2014-11-18 19:41:34

Free-Lancer 发表于 2014-11-18 19:29
表中表就是排列组合了

大师，我没有说清楚！

Free-Lancer · 发表于 2014-11-18 20:18:01

cable2004 发表于 2014-11-18 19:41
大师，我没有说清楚！

先把每个 apply ‘+ 后建立索引，用索引去计算

Free-Lancer · 发表于 2014-11-19 10:48:44

cable2004 发表于 2014-11-18 19:41
大师，我没有说清楚！

(defun tt (/ a b c aa bb cc aa1 bb1 cc1 lst)
(setq a (list '(1 1 1 1 1 1) '(1 1 1 1 1) '(1 1 1 1) '(1 1 1))
b (list '(2 2 2 2) '(2 2) '(2))
c (list '(3 3 3) '(3 3) '(3))
aa (mapcar '(lambda (x) (list (apply '+ x) x)) a)
bb (mapcar '(lambda (x) (list (apply '+ x) x)) b)
cc (mapcar '(lambda (x) (list (apply '+ x) x)) c)
)
(while aa
(setq bb1 bb)
(while bb1
(setq cc1 cc)
(while cc1
(setq lst (cons (list (car aa) (car bb1) (car cc1)) lst))
(setq cc1 (cdr cc1))
)
(setq bb1 (cdr bb1))
)
(setq aa (cdr aa))
)
(vl-remove nil
(mapcar '(lambda (x)
(if (> (apply '+ (mapcar 'car x)) 10)
nil
(mapcar 'cadr x)
)
)
lst
)
)
)

(defun tt (/ a b c aa bb cc aa1 bb1 cc1 lst) 
  (setq        a  (list '(1 1 1 1 1 1) '(1 1 1 1 1) '(1 1 1 1) '(1 1 1)) 
        b  (list '(2 2 2 2) '(2 2) '(2)) 
        c  (list '(3 3 3) '(3 3) '(3)) 
        aa (mapcar '(lambda (x) (list (apply '+ x) x)) a) 
        bb (mapcar '(lambda (x) (list (apply '+ x) x)) b) 
        cc (mapcar '(lambda (x) (list (apply '+ x) x)) c) 
  ) 
  (while aa 
    (setq bb1 bb) 
    (while bb1 
      (setq cc1 cc) 
      (while cc1 
        (setq lst (cons (list (car aa) (car bb1) (car cc1)) lst)) 
        (setq cc1 (cdr cc1)) 
      ) 
      (setq bb1 (cdr bb1)) 
    ) 
    (setq aa (cdr aa)) 
  ) 
  (vl-remove nil 
             (mapcar '(lambda (x) 
                        (if (> (apply '+ (mapcar 'car x)) 10) 
                          nil 
                          (mapcar 'cadr x) 
                        ) 
                      ) 
                     lst 
             ) 
  ) 
)

_$ (tt)
(((1 1 1) (2) (3)) ((1 1 1) (2 2) (3)) ((1 1 1 1) (2) (3)) ((1 1 1 1 1) (2) (3)))
_$

/db_自贡黄明儒_ · 发表于 2014-11-19 11:30:30

(apply '+ (mapcar '(lambda(x) (apply '+ x)) (list '(1 1 1 1 1 1) '(1 1 1 1 1) '(1 1 1 1) '(1 1 1))))=》18

牢固 · 发表于 2014-11-19 21:57:21

穷举法：
(defun c:tt (/ ll)
 (setq a (list '(1 1 1 1 1 1) '(1 1 1 1 1) '(1 1 1 1) '(1 1 1)))
 (setq b (list '(2 2 2 2) '(2 2) '(2)))
 (setq c (list '(3 3 3) '(3 3) '(3)))
 (foreach aa a
(foreach bb b
 (foreach cc c
(if (<
 (+ (apply '+ aa)
 (apply '+ bb)
 (apply '+ cc)
 )
 10
 )
 (setq ll (cons (list aa bb cc) ll))
)
 )
)
 )
 (princ ll)
 (princ)
)

cable2004 · 发表于 2014-11-22 15:27:41

本帖最后由 cable2004 于 2014-11-22 15:54 编辑

谢谢各位大师，现在只是举例，只有3个表，如果是N个呢！

(setq a (list '(1 1 1 1 1 1) '(1 1 1 1 1) '(1 1 1 1) '(1 1 1)))
(setq b (list '(2 2 2 2) '(2 2 ) '(2)))
(setq c (list '(3 3 3) '(3 3) '(3)))
。
。
。
。
。
(setq n (list '(3 3 3) '(3 3) '(3)))

求(A表中一个+B表中一个+C表中一个)<10
(A表中一个+B表中一个)<10
(B表中一个+C表中一个)<10
(A表中一个+C表中一个)<10的集合

比如：'(1 1 1 1 1 1)+'(2 2 )=10
'(1 1 1)+'(2)+'(3)=8

/db_自贡黄明儒_ · 发表于 2014-11-22 16:13:19

N表弄成一个表，然后循环

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

[求助] 求和

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评