[paradoxvaha]

Привет всем! Вот возник такой вопрос - как присвоить переменной индекс?
Тяжело объяснить, легче показать (это кусок тела программы, но суть задачи показал немного ниже):

(if (= n 0) (progn (setq pp0 ver_p)))
(if (= n 1) (progn (setq pp1 ver_p)))
(if (= n 2) (progn (setq pp2 ver_p)))
(if (= n 3) (progn (setq pp3 ver_p)))
(if (= n 4) (progn (setq pp4 ver_p)))
(if (= n 5) (progn (setq pp5 ver_p)))
(if (= n 6) (progn (setq pp6 ver_p)))
(if (= n 7) (progn (setq pp7 ver_p)))
(if (= n 8) (progn (setq pp8 ver_p)))
(if (= n 9) (progn (setq pp9 ver_p)))
я пока выкручивался вот так, но щас пошли такие списки, что капец...
как мне это упростить, помогите плиз.
Нужно что то типа:

(setq n 0)
(repeat 100
(setq p(n) (* n 100))
(setq n (+ n 1))
);end_of_repeat

То есть как бы приклеить индекс n переменной p, чтоб получилась переменная pn, где n - порядковый номер.
Я уже из сил выбился, но ничего не выходит, может кто поможет?
Заранее спасибо!

[Кулик Алексей aka kpblc]

формируй список из своих значений. Примерно так:

Код:

[Выделить все]

(setq n 0)
(repeat 100 (setq lst (append lst (list (setq n (1+ n))))))

Получить элемент в таком варианте можно через nth:

Код:

[Выделить все]

(nth 50 lst); вернет 51-й элемент

Это самый простой способ, есть и посложнее и понавороченнее

[paradoxvaha]

Спасибо огромное все будет работать как надо! Немного не то, что я хотел, но так походу даже лучше для меня!! Еще раз спасибо!

[Alaspher]

В АвтоЛИСПе нет массивов, но если очень надо, то можно их изобразить с помощью списка точечных пар - ((N1 . Value1)(N2 . Value1)(N[n] . Value[n])...). Немного сложнее, чем простоая индексация, но есть и преимущества - не имеет значения порядок следования. N - целые числа. Для доступа - assoc, для замены - subst Контроль уникальности "индекса" на программисте.

[BigBrother]

Сообщение от paradoxvaha ...приклеить индекс n переменной p, чтоб получилась переменная pn, где n - порядковый номер. Я уже из сил выбился, но ничего не выходит, может кто поможет? Заранее спасибо!

Исходная задача может быть решена так:
(setq n 0)
(repeat 100
(set (read (strcat "p" (itoa n))) (* n 100))
(setq n (+ n 1))
);end_of_repeat

Также подобие массива можно реализовать с помощью фукций Vlisp vlax-safearray-***

[paradoxvaha]

to BigBrother
Спасибо и тебе, всё работает так, как я и описывал задачу!
Искал ответ на один вопрос, а получил 2 варианта для своей задачи!!!