[solo123]

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

[Дима_]

(while (= n1 5)....)

[Disney]

вообще вот так

Код:

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

 (setq i 0)
(initget
  1
  "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
)
(while (/= (setq temp
		  (getkword
		    "Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>: "
		  )
	   )
	   "5"
       )
  (set (read (strcat "n" (itoa (setq i (1+ i)))))
       (atoi temp)
  )
  (initget
    1
    "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
  )
)

Но так ни кто не делает, лучше заносить значения в список

Код:

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

 (initget
  1
  "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
)
(while (/= (setq temp
		  (getkword
		    "Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>: "
		  )
	   )
	   "5"
       )
  (setq k-list (cons temp k-list))
  (initget
    1
    "1-прямо 2-право 3-лево 4-назад 5-стоп _1 2 3 4 5"
  )
)

[solo123]

Большое спасибо! Особенно Disney , без Вашей помощи ещёбы сидел и тупил.

[gomer]

Сообщение от Disney Но так ни кто не делает, лучше заносить значения в список

Код:

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

 (setq
	DirectionList '()
	optns (list "ПРямо" "ВПраво" "ВЛево" "Назад" "Конем" "Слоном" "НеЗнаю" "КудаПодальше" "СТоп")
	def   (last optns)
	split (lambda (y) (strcat (car optns) (apply 'strcat (mapcar '(lambda (x) (strcat y x)) (cdr optns))))))
(while (/= def (progn (initget (split " "))
						 (setq CurrentDirection (cond ((getkword (strcat "\nУкажите направление [" (split "/") "] <" def ">: " )))
													  (def)))))
  (setq DirectionList (append DirectionList (list (vl-position CurrentDirection (reverse (cdr (reverse optns)))))))
)

[Дима_]

Offtop: Когда я вижу вызываемую в цикле конструкцию наподобие (setq k-list (cons temp k-list)) - у меня приливает адриналин - рекурсия по ней "плачет".

[Disney]

Дима_, так ты не стесняйся, пиши...
Глядишь и нас потихоньку научишь\приучишь, а то логику кем-то написанной рекурсии я понимаю, а самому написать ума не хватает

[Дима_]

Сообщение от Disney а то логику кем-то написанной рекурсии я понимаю, а самому написать ума не хватает

Код:

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

 ((lambda (f-rec get-key) (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>:")))

Offtop: осторожно она (логика) затягивает

[gomer]

Сообщение от Дима_ осторожно она (логика) затягивает

рекурсии это конечно хорошо, НО:
1. Забываем про эру ДОС: "1-..." - это моветон!
2. Перестаем игнорировать нули, они в лиспе много стоят!
3. (initget 1 ... <1>: Вообще бред...

зы... подправил #5

[Дима_]

initget и getkword - я бессовестно скопировал с Диснея - он просил логику показать - насчет 1... - моветон это отсутствие нормального гуя, а если пишешь на автолиспе - то тут без "мовитонирования" никак - привет от автодеск так сказать.
p.s. по факту целиком, дружелюбный пользователю - по сегодняшним меркам, проект на чистом лисп не напишешь.

[gomer]

Сообщение от Дима_ отсутствие нормального гуя

Тут гуй ни к чему, гуй уже в акад встроен с 2006 версии... хотя может юзеру и западло набирать две буквы вместо цифры... для цыфирей есть getint, но и он тут ни к селу ни к городу...
з.ы. по моему я пока рулю в #5

[ShaggyDoc]

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

это если с рекурсией

[Дима_]

Сообщение от gomer Тут гуй ни к чему, гуй уже в акад встроен с 2006 версии...

Но только не в автолисп - там все, сюдя по всему, на dcl закончилось.

Сообщение от gomer по моему я пока рулю в #5

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

это если с рекурсией

а что Вы хоть как на автолиспе немодальное окно напишете? Вот такое например:

[gomer]

Сообщение от Дима_ Но только не в автолисп - там все, сюдя по всему, на dcl закончилось.

Я имею ввиду дин ввод, а в брикскад есть выпадающее экранное меню для опций... чем не гуй

Сообщение от Дима_ что мешает сразу "нужные" значения в список собирать

то что не зависит от пользователя, выполняется в любой последовательности не нарушающей логику программы...
#3 и #8 возвращает список реверсивный исходному: первое введенное действие оказывается последним в списке... преобразовывать все равно надо, с другой стороны ползователю не надо!!! помнить "коды" шагов и сопоставлять их с описанием... лишнее это, потому что это должна делать программа...
это и называется д.и. имхо

[Дима_]

Сообщение от gomer #3 и #8 возвращает список реверсивный исходному: первое введенное действие оказывается последним в списке...

а давайте #8 запустить попробуем:

Код:

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

Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:1-прямо
Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:2-право
Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:3-лево
Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:4-назад
Введите направление [1-прямо/2-право/3-лево/4-назад/5-стоп] <1>:5-стоп
("1" "2" "3" "4")

и что мы видим? а если нужно вместо "1" вставлять - "прямо" так это ИХМО и надо делать при составлении списка - а не лишний раз прогонять.

[gomer]

Сообщение от Дима_ а давайте #8 запустить попробуем:

э, мдя, согласен... сорри... хотел написать "кажется" но отвлекся... никак не врублюсь в рекурсии
("1" "2" "3" "4") все равно нужно обрабатывать...
Дима_, ваш код, возможно, можно еще оптимизировать т.к. f-rec встречается дважды (или нет... если я не прав)

[Disney]

Сообщение от gomer 1. Забываем про эру ДОС: "1-..." - это моветон! 2. Перестаем игнорировать нули, они в лиспе много стоят!

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

Сообщение от gomer 3. (initget 1 ... <1>: Вообще бред...

Конечно бред , но я же не бью себя в грудь, что я великий программист, зато я отличный геодезист!
initget 1 - лень было пустой ввод обрабатывать
<1> - а это как Дима отмазался "я бессовестно скопировал с solo123"

Сообщение от gomer никак не врублюсь в рекурсии

А я врубился
вот Димина функция, только по Евгению Елпанову, через defun

Код:

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

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

;;;вызов функции
;;;(rec-f
;;;  (get_key)
;;;)

[VH_]

Антоним к слову "назад" - не "прямо", а "вперед".

[gomer]

Сообщение от Disney А я врубился

в квадратных скобках должно быть 5 не потакайте афтару пишите правильно

[ShaggyDoc]

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

Смысл "следующего" направления есть, когда известно предыдущее. Чтобы повернуть вправо, влево и т.д. достаточно запросить одну точку. В зависимости от того, где указана точка, программа должна сообразить, в какую сторону поворачивать.

[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)))))
	  )
	)
  )
)