А кто-нибудь программирует в Lisp?

[crazy-mike]

Lambda есть, но я до неё еще не дошел.

Ну, например, вот такая вот писанина мною уже читается легко и пишется не трудно:

(defun c:slot (/ p d L R)
(setq p (Getpoint "Select point: "))
(setq d (Getreal "Identify Slot Diameter: "))
(setq L (Getreal "Identify Slot Lengths: "))
(setq R (Getreal "Specify Rotation Angle: "))
(Draw p d L R)
)
(prompt "slot, ")
(defun Draw (p d L R / p1 p2 p3 p4 p5 p6 x y det)
(setq
x (nth 0 p)
y (nth 1 p)
p1 (list (- x (/ (- L d) 2.0)) (+ y (/ d 2.0)))
p2 (list (+ x (/ (- L d) 2.0)) (+ y (/ d 2.0)))
p3 (list (+ x (/ (- L d) 2.0)) (- y (/ d 2.0)))
p4 (list (- x (/ (- L d) 2.0)) (- y (/ d 2.0)))
p5 (list (- x (/ (- L d) 2.0)) y)
p6 (list (+ x (/ (- L d) 2.0)) y)
)
(command "_osnap" "_none")
(command "_pline" p1 p2 "_arc" "_ce" p6 "_a"
-180 "_l" p3 p4 "_arc" "_ce" p5 "_a"
-180 "_cl" ""
)
(command "_rotate" "_last" "" p1 R "")
(command "_osnap" "int,cen,end,ins")
(prompt "Draw ")
)

рисует slot (не знаю, как это по-русски) любой длины, любого диаметра, под любым углом.

Ага. Но в "настоящем LISP-е" программа могла самое себя дописывать во время выполнения!

[Кот Пушок]

Ага. Но в "настоящем LISP-е" программа могла самое себя дописывать во время выполнения!

Я даже представить себе не могу, как это так.

Где-то мне попадалась лисп-программка, которая писала сама собой, пока чертишь чего-нибудь.
Но автор её оговорился, что надо её еще долаживать.
А для того, чтобы создать какой-нибудь узел, который меняется в зависимости от вводимых характеристик - как тебе программа сама напишет?

[crazy-mike]

Я даже представить себе не могу, как это так.

Где-то мне попадалась лисп-программка, которая писала сама собой, пока чертишь чего-нибудь.
Но автор её оговорился, что надо её еще долаживать.
А для того, чтобы создать какой-нибудь узел, который меняется в зависимости от вводимых характеристик - как тебе программа сама напишет?

Она должна была строить список , элементы которого можно было бы обходить и выполнять в качестве "инструкций". Там дело упрощалось из-за того что любая из "инструкций" являлась вызовом функции по имени. Но эта "скобочная запись" просто "доставала" ( очень трудно читать ).
Там ещё были функции CAR и CDR для работы со списками ( какая-то из них добавляла "атом" в список ).

[Кот Пушок]

Она должна была строить список , элементы которого можно было бы обходить и выполнять в качестве "инструкций". Там дело упрощалось из-за того что любая из "инструкций" являлась вызовом функции по имени. Но эта "скобочная запись" просто "доставала" ( очень трудно читать ).
Там ещё были функции CAR и CDR для работы со списками ( какая-то из них добавляла "атом" в список ).

Да, есть и такое, тоже буду еще грызть дальше.

А мне скобки нравяцца. )))
Вроде как кто-то пишет, и улыбку имитирует )))

Да я, собственно, по-моему никогда и не видел техта программы.
Мне сравнивать просто не с чем - где удобнее, где нет.

[crazy-mike]

Да, есть и такое, тоже буду еще грызть дальше.

А мне скобки нравяцца. )))
Вроде как кто-то пишет, и улыбку имитирует )))

Да я, собственно, по-моему никогда и не видел техта программы.
Мне сравнивать просто не с чем - где удобнее, где нет.

PROLOG в отношении скобок намного элегантнее.

[MariLi]

PROLOG в отношении скобок намного элегантнее.

А ЭПИЛОГ точки хорошо расставляет

[crazy-mike]

А ЭПИЛОГ точки хорошо расставляет

Там DATALOG вот был - когда пробовали соединить SQL и PROLOG.

[Quanty]

у меня вопрос интереснее: кто программирует в Haskel???

[реднек]

Не знаю, что это такое даже.
Никогда не видел ничего написанного для автокада на чем-то другом, как ни на лиспе...
Примеры у тебя есть?

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

[MariLi]

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

How do I debug AutoLISP programs?