Topic: need short formula

[Adesu]

Would you please help me to find "short formula" or not long, in order variable xyz + lst -> '(30 35 40).
I just create a code but still wrong

Code: [Select]

(setq xyz '(10 20 20))
(setq lst '(20 15 20))
it should become (setq xyz '(30 35 40))

   
(foreach item xyz
  (setq x (+ item (car lst)))
  (setq y (+ item (cadr lst)))
  (setq z (+ item (caddr lst)))
  ) ; foreach
(princ x)
(princ y)
(princ z)


[pkohut]

Code: [Select]

(mapcar '+ xyz lst)

Code: [Select]

(setq op (mapcar '+ xyz lst)
      x (car op)
      y (cadr op)
      z (caddr op))


[MP]

I'm not sure I understand the question at all, but maybe you'll find this useful / interesting:

Assuming lst is set to (1 2 3) ...

(mapcar 'set '(x y z) lst)

Will bind 1 to x, 2 to y, 3 to z.

And assuming lst1 is set to (1 2 3) and lst2 is set to (4 5 6) ...

(mapcar '+ lst1 lst2)

Will return (5 7 9)

[Adesu]

Wow......it's code I look for, thanks

Code: [Select]

(mapcar '+ xyz lst)

[Adesu]

Yes this I look for,thanks.

(mapcar '+ lst1 lst2)

[alanjt]

Code: [Select]

(mapcar (function (lambda (a b v) (set v (+ a b))))
        xyz lst
        '(x y z)
        )

[uncoolperson]

Code: [Select]

(DEFUN plus (v1 v2) (MAPCAR (FUNCTION +) v1 v2))
more of the same, pretty sure I stole this from someone here.

[Lee Mac]

Another   

Code: [Select]

(  (lambda (a b)
       
        (  (lambda (f i) (apply f i))
           (function mapcar)
           (  (lambda (f i) (cons f i))
              (function set)
              (  (lambda (f i) (cons f i))
                 (quote (x y z))
                 (  (lambda (f i) (f i))
                    (lambda (i) (list i))
                    (  (lambda (f i) (apply f i))
                       (function mapcar)
                       (  (lambda (f i) (cons f i))
                          (function +)
                          (list a b)
                       )
                    )
                 )
              )
           )
        )
   )
   xyz lst
)


[ElpanovEvgeniy]

my way:

Code: [Select]

(mapcar 'set '(x y z) (mapcar '+ xyz lst))

[alanjt]

my way:

Code: [Select]

(mapcar 'set '(x y z) (mapcar '+ xyz lst))

Nice and simple. I like it.