[baaba]

Вот, бьюсь над задачкой который день, видимо неправильно бьюсь, я что то не понимаю..

Cоставляю выражение, которое выдаёт мне список значений (например 7 точек, см. ниже):

(defun wcount (n / tot)
(setq tot 0)
(while (< tot n)
(progn
(setq tot (1+ tot))
(princ (setvar "LASTPOINT" (polar (getvar "LASTPOINT") 0 25))))))

Получившийся список хочу записать в переменную:

(setq a wcount 7)

Проверяю значение переменной !a, записывается только последний элемент списка.

[Serg_TIT]

Вам нужен список? Почему не записать (setq a list (wcount 7))?

[VVA]

Код:

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

(defun wcount (n / tot ptlist)
(setq tot 0)
(while (<= (setq tot (1+ tot)) n)
 (setq ptlist (cons (polar (getvar "LASTPOINT") 0 (* tot 25)) ptlist))
  )
  (reverse ptlist)
  )

;;;Использование
(setq a (wcount 7))

[Дима_]

Если хотите понять лисп, надо побыстрей забыть про циклы, дополнительные переменные (ну по крайней мере постараться) индексы и пр. В "классике" лиспа сиё должно выглядеть так:

Код:

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

(defun wcount (n)
(if (not(= n 0)) (cons (polar (getvar "lastpoint") 0 (* n 25)) (wcount (1- n))))
)

[Do$]

... и помнить, что количество циклов не ограничено, в отличие от количества вложенных вызовов - рекурсий.

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

А вот с этого момента поподробнее, пожалуйста...

[Do$]

Вот:
http://forum.dwg.ru/showpost.php?p=465695&postcount=50

[Дима_]

Есть такой косячок у автолиспа - в нормальных реализациях лиспа память на рекурсию выделяеться динамически, а не пихаеться в стек (по определению ограниченнный), то есть если хватает памяти на "содержание" списка, то и на его "саморекурсию" хватит:
а в автолиспе по факту

Код:

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

(defun wcount1 (n / lst)
(while (> n 0) (setq lst (cons (polar (getvar "lastpoint") 0 (* n 25)) lst) n (1- n)))
lst
)

делает сколько угодно (для примера 1млн - даже не "поморщился"), а рекурсивно на 20 тыс - сдыхает

[baaba]

Огромнейшее спасибо за предложенные примеры! Задачу удалось решить, и материал для размышлений есть.

[Елпанов Евгений]

еще три варианта:

Код:

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

(defun wcount1 (n / p)
 (setq p (list (mapcar '+ (getvar "lastpoint") '(25 0 0))))
 (repeat (1- n) (setq p (cons (mapcar '+ (car p) '(25 0 0)) p)))
 p
) ;_  defun
(defun wcount2 (n / l)
 (setq p (getvar "lastpoint")
       p (cons (+ (car p) 25) (cdr p))
 ) ;_  setq
 (repeat n
  (setq l (cons p l)
        p (cons (+ (car p) 25) (cdr p))
  ) ;_  setq
 ) ;_  repeat
 l
) ;_  defun
(defun wcount3 (n)
 (if (> n 0)
  (cons (mapcar '+ (getvar "lastpoint") (list (* n 25) 0 0)) (wcount3 (1- n)))
 ) ;_  if
) ;_  defun