Setup functions by setq

[lyl]

I'd like to make a series of functions whose names come from a list, as shown by the following codes:

Code Select Expand

(setq a '(a1 a2))
(dolist (x a)
  (let (z $idx)
    (setq x (lambda(y) z))
    ))
what I want is to get two functions

a1: (lambda (y) 0)

a2: (lambda (y) 1)

But I fail.

What's wrong with my code, and how to solve it?

[newBert]

Code Select Expand

(setq a '(a1 a2))
(dolist (x a)
  (let (z $idx)
    (setq x (lambda(y) z))
    ))
What's wrong with my code, and how to solve it?

Maybe with :

Code Select Expand

(dolist (x a)
  (let (z $idx)
    (set (sym x) (expand (lambda (y) z) 'z))))