Добрый вечер, возникла сложность при написании программы, задание звучит следующим образом:
Вычислить для каждого элемента заданного списка число вхождений этого элемента в список. Образовать из этих чисел список, в котором они расположены на тех же местах, что и соответствующие им элементы исходного списка.
Был написан следующий код:
(setq p1(list 1 2 3 2 3 1))
(setq p2(list))
(setq l (length p1))
(setq i 0)
(while (< i l)
(setq k 0)
(setq j 0)
(while (< j l)
(if (= (nth i p1) (nth j p1)) (setq k (+ k 1)) "")
(if (= (+ j 1) l) (cons 'p2'(k)) "")
(setq j (+ j 1))
)
(setq i (+ i 1))
)
(reverse p2)

Возникает следующая ошибка:
*** - EVAL: undefined function WHILE
Подскажите, что именно неправильно, заранее спасибо!