Сформировать из простого списка ассоциативный

(setq f (list 11 12 13 14))
(defun F (L1)
    (cond
        ((null L1) nil)
        (t (acons 1 (car L1) q) 
        ;(F (cdr L1))
        )))
(print (F f))
 
==>(F 11 12 13 14)
((1 . 11))

(defun cons-n (w &optional (n 1))
  (when  w (cons (cons n (car w)) (cons-n (cdr w) (1+ n)))))
 
> (cons-n '(11 12 13 14))
((1 . 11) (2 . 12) (3 . 13) (4 . 14))

(1+ n)

(defun cons-n (w n)
  (cond ((null w) nil)
        (t (cons (cons n (car w)) (cons-n (cdr w) (+ n 1))))))
 
(defun cons-nx (w)
  (cons-n w 1))
 
> (cons-nx '(11 12 13 14))
((1 . 11) (2 . 12) (3 . 13) (4 . 14))

(defun cons-n (w &optional (n 1))
  (cond ((null w) nil)
        (t (cons (cons n (car w)) (cons-n (cdr w) (+ n 1))))))
 
> (cons-n '(11 12 13 14))
((1 . 11) (2 . 12) (3 . 13) (4 . 14))

(defun mk-asso (lst)
  (let ((c 0))
    (mapcar #'(lambda (x) (setq c (+ 1 c)) (cons c x)) lst)))
 
==> mk-asso
 
(mk-asso '(q w e r t y)) 
 
==> ((1 . q) (2 . w) (3 . e) (4 . r) (5 . T) (6 . y))

(defun mk-asso-r (lst &optional (c 1))
  (cond ((null lst) Nil)
        (t (cons (cons c (car lst)) (mk-asso-r (cdr lst) (+ c 1)))))) 
 
==> mk-asso-r
 
(mk-asso-r '(q w e r t y)) 
 
==> ((1 . q) (2 . w) (3 . e) (4 . r) (5 . T) (6 . y))