> 1 <

Автор Сообщение

Zohan

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#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 <


Онлайн :

0 пользователь(ей), 62 гость(ей) :




Реклама на сайте: