> 1 <
Автор | Сообщение |
Zohan
1 сообщений |
#8441 2020-04-08 04:11 GMT+3 часа(ов) |
Добрый вечер, возникла сложность при написании программы, задание звучит следующим образом:
Вычислить для каждого элемента заданного списка число вхождений этого элемента в список. Образовать из этих чисел список, в котором они расположены на тех же местах, что и соответствующие им элементы исходного списка. Был написан следующий код: (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 Подскажите, что именно неправильно, заранее спасибо! ![]() |
|
> 1 <