Kowal Posted July 17, 2013 Share Posted July 17, 2013 Please help Lee Mac. I need a arguments function that add/multiply the lists. (setq (list (list a1 a2 a3 …) (list b1 b2 b3 …) (list c1 c2 c3 …) …)) (setq (list (list A1 A2 A3 …) (list B1 B2 B3 …) (list C1 C2 C3 …) …)) Algorithm: List1 ‘((a1 a2) (b1 b2)) List2 ‘((A1 A2) (B1 B2) (C1 C2)) Result: ‘(( [a1*A1+a2*A2] [a1*B1+a2*B2] [a1*C1+a2*C2]) ([b1*A1+b2*A2] [b1*B1+b2*B2] [b1*C1+b2*C2])) Example 1 List1 ‘((1 2) (2 4)) List2 ‘((3 1) (2 2) (1 1)) Result:‘(( [1*3+2*1] [1*2+2*2] [1*1+2*1]) ([2*3+4*1] [2*2+4*2] [2*1+4*1])) Result:‘((5 6 3) (10 12 6)) Example 2 List1 ‘((2 1 2) (3 1 1) (4 3 2)) List2 ‘((2 3 1) (1 1 1) (3 4 5)) Result: ‘((11 15 13) (10 14 9) (17 23 17)) Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted July 17, 2013 Share Posted July 17, 2013 Is this a school assignment? Quote Link to comment Share on other sites More sharing options...
Kowal Posted July 17, 2013 Author Share Posted July 17, 2013 Is this a school assignment? No, I'm an engineer. I'm working on a Civil 3D. Like Lisp macros, and I want to learn the argument function. If this example is not difficult to ask for help. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted July 17, 2013 Share Posted July 17, 2013 (defun f ( a b ) (mapcar (function (lambda ( a ) (mapcar (function (lambda ( b ) (apply '+ (mapcar '* a b)) ) ) b ) ) ) a ) ) _$ (f '((1 2) (2 4)) '((3 1) (2 2) (1 1))) ((5 6 3) (10 12 6)) I believe the result for your second example is incorrect and should be: _$ (f '((2 1 2) (3 1 1) (4 3 2)) '((2 3 1) (1 1 1) (3 4 5))) ((9 5 20) (10 5 18) (19 9 34)) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.