[solo123]

Как зациклить ввод данных так, чтобы каждый следующий ввод имел другую переменную например n2 вместо n1,n3 вместо n2, и тд.
количество циклов бесконечно до ввода(< 5>) [стоп]
( DEFUN c:zik ( / n1 )
(vl-load-com)
(setq n1 (getint " Введите направление (<1>) [прямо/право/лево/назад/стоп]: ")))

[Disney]

Сообщение от gomer в квадратных скобках должно быть 5

ну... это как правило хорошего тона, "выход" - по пустому вводу.
А на практике, может ему надо 50 раз "прямо" пару раз "право\лево" и только потом "стоп". От сюда вопрос, что удобнее 50 раз нажать Enter\Space\ПКМ, и только в конце ввести "5", или 50 раз вводить "1", и только раз в конце нажать Enter\Space\ПКМ

Сообщение от ShaggyDoc Вообще-то для выбора направления (1-прямо/2-право/3-лево/4-назад) не надо задавать столько ключевых слов и делать getkword.

?????°?? ?? ?????????µ?†?‹

http://www.youtube.com/watch?v=S22RkIpx8_s

[gomer]

Врубился и я в рекурсию... Но как по мне здесь можно и без нее обойтись...
Обновил #5 Я тоже умею непонятно писать
Хотя уже не рулю...

[Disney]

Сообщение от gomer Врубился и я в рекурсию... Обновил #5

Нее... это не рекурсия

Сообщение от gomer Я тоже умею непонятно писать

А с непонятно получилось

[gomer]

Сообщение от Disney Нее... это не рекурсия

Конечно нет... ИМХО если можно не использовать рекурсию, лучше так и сделать...

[Дима_]

Сообщение от gomer Обновил #5 Я тоже умею непонятно писать

Критику принимаешь? (не по поводу непонятности)

[gomer]

Сообщение от Дима_ Критику принимаешь?

Ну конечно... вообще это автору интереснее было бы почитать... Давай критику =)

[Дима_]

Сообщение от gomer Давай критику =)

ты в цикле на каждой итерации вызываеш (split " "), (split "/") и (reverse (cdr (reverse optns))) - результат у них всегда одинаковый - достаточно одного вычисления этих функций.
(append DirectionList (list 1 значение)) - с точки зрения лиспа - конструкция вывернута на изнанку - списки это не массив - и принцип работы с ними иной - по сути ты приconsиваеш ко второму списку (из одного элемента), поочередно все элементы предыдущего списка (опять же на каждой итерации) - короче правильно использовать cons с revers'ом по окончани всех итераций.

Забываем про эру ДОС: "1-..." - это моветон!

- знакомые слова - а ведь "моветон" этот родился не с проста, выбери у себя опцию "Стоп" (мышкой) - Слоник однако получается (наверное проверял без него - добавил и не посмотрел - а еслиб "моветонил" - такого бы не было).

[gomer]

Сообщение от Дима_ ты в цикле на каждой итерации вызываеш (split " "), (split "/") и (reverse (cdr (reverse optns))) - результат у них всегда одинаковый - достаточно одного вычисления этих функций.

Дима_, вы опять намекаете на лямбду... я просто не вижу смысла в лишних переменных по причине указанной ниже...

Сообщение от Дима_ (append DirectionList (list 1 значение)) - с точки зрения лиспа - конструкция вывернута на изнанку - списки это не массив - и принцип работы с ними иной - по сути ты приconsиваеш ко второму списку (из одного элемента), поочередно все элементы предыдущего списка (опять же на каждой итерации) - короче правильно использовать cons с revers'ом по окончани всех итераций.

Настращали, конечно я с вами абсолютно согласен... и в первом варианте был cons, с другой стороны все это компенсируется человеческим фактором (медлительностью пользователя...)
Конечно, рекурсивный принцип здесь весьма хорош, хоть я и не знаю, где хранятся промежуточные результаты вычисления рекурсивной функции и какую глубину рекурсии позволит мне лисп, тут опять же играет роль ч.ф. (см. выше)
Со слоном согласен... исправил одну букву! для этого и мастерил "бубен"...

[Дима_]

Сообщение от gomer хоть я и не знаю, где хранятся промежуточные результаты вычисления рекурсивной

А кто писал - "Врубился и я в рекурсию".

[gomer]

Сообщение от Дима_ А кто писал - "Врубился и я в рекурсию".

Я имел ввиду конкретный пример... как формируется список
Мне непонятно где висит выделенное красным, пока выполняется выделенное зеленым...

Код:

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

(defun rec-f (key)
  (if (not (= key "5"))
    (cons (atoi key) (rec-f (get_key)))
  )
)

[Disney]

Сообщение от gomer Мне непонятно где висит выделенное красным, пока выполняется выделенное зеленым.. Код: [Выделить все] (defun rec-f (key) (if (not (= key "5")) (cons (atoi key) (rec-f (get_key))) ) )

Код:

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

(if (not (= (setq key (get_key)) "5"))
  (cons	(atoi key)
	(if (not (= (setq key (get_key)) "5"))
	  (cons	(atoi key)
		(if (not (= (setq key (get_key)) "5"))
		  (cons	(atoi key)
			(if (not (= (setq key (get_key)) "5"))
			  (cons	(atoi key)
				(if (not (= (setq key (get_key)) "5"))
				  (cons (atoi key) . . .)
				)
			  )
			)
		  )
		)
	  )
	)
  )
)

и If будет бесконечно(у рекурсии есть конечно свое ограничение) вкладываться, пока key ≠ "5"

[Дима_]

То Дисней -добавив setq вы координально изменили логику (хоть результат и остался тем-же) - Если добавить обработку в нижнию часть кода (там где закрываются скобки) - в Вашем варианте key всегда будет равен последнему значению (поэтому я и не использую setq).
То Гомер - попробуй почитать определение каррирования - в автолиспе правда его создать невозможно, но встроенные функции с ним есть (+ list и пр).

[gomer]

Сообщение от Disney и If будет бесконечно(у рекурсии есть конечно свое ограничение) вкладываться, пока

Да это-то понятно... но пока вычисляется хвост, лисп же должен хранить операцию присоединения... а в коде это не видно...
вот пример - test не вычисляется пока key ≠ "5"

Код:

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

 ((lambda (f-rec get-key)
  (setq test (f-rec (get-key)))
  )
 (lambda (x)
  (if (not(= x "5")) (cons x (f-rec (get-key)))))
(lambda ()
  (initget 1 "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5")
  (getkword "Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:"))
)

[Дима_]

Сообщение от gomer test не вычисляется пока key ≠ "5"

кончно не вычислится - у любой функции вначале вычисляются аргументы (не путать функции со специальными формами (их кто как называет) - это if, cond, and, or...) - где хранится результат - прочти про каррирование

[Disney]

Сообщение от Дима_ добавив setq ты координально изменили логику

Да нее, это я просто хотел типа разложить рекурсию, для gomer.
Попробую ещё раз, пользователь вводил: "2" "2" "3" "4" "3" "5"

Код:

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

(cons 2
      (cons 2
	    (cons 3
		  (cons	4
			(cons 3
			      nil
			)
		  )
	    )
      )
)

[gomer]

Да это то понятно... я говорю о контроле операций... например возможность задавать порядковый номер действия... откатывать действия...

ну хотя бы так

Код:

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

 (setq
	DirectionList '()
	OptionsList (list "Отмена" "ПРямо" "ВПраво" "ВЛево" "Назад" "Стоп")
	step (lambda () (1+ (length DirectionList)))
	optns (lambda () (if (= 1 (step)) (cdr OptionsList) OptionsList))
	def   (last (optns))
	split (lambda (lst dlm) (strcat (car lst) (strcat (apply 'strcat (mapcar '(lambda (x) (strcat dlm x)) (cdr lst)))))))
(while (/= def (progn (initget (split (optns) " "))
						 (setq CurrentDirection (cond ((getkword (strcat "\nУкажите направление [" (split (optns) "/") "] <" def ">: " )))
													  (def)))))
  (setq
	DirectionList
	(if (= 1 (step))
	  (append DirectionList (list (vl-position CurrentDirection (optns))))
	  (if (= CurrentDirection (car (optns)))
		(reverse (cdr (reverse DirectionList)))
		(append DirectionList (list (vl-position CurrentDirection (cdr (optns)))))
	  )
	)
  )
)