[Kirill_Ja]

Функция Lambda очень часто встречается в текстах кодов на форуме. У Николая Полещука в книге описана как функция для того, чтобы прямо в тексте программы определить и тут же выполнить пользовательскую функцию. В документации для разработчиков AutoCad тоже какой-то неочевидный и не очень понятный пример.

В общем как-то так.

Объясните понятно на примере как это и зачем именно определять функцию одноразового применения.

[ShaggyDoc]

лучше написать свой нормальный *error*

Ну, попробуй напиши. Такую *error*, чтобы перехватывала ESC. Функция *error* срабатывает, когда уже "поздно пить боржоми". Т.е. когда ошибку уже не предотвратить, программа уже вылетает. Причем независимо от того, на каком уровне вложенных функций произошел вылет. Здесь можно только что-то мявкнуть, да что-то восстановить.

ESC для AutoLISP - "лом, против которого нет приема".

А ловушки ошибок действуют наподобие try... except ... end. vl-catch-all-ххх - наилучшая новинка в LISP за последние 10 лет. С их помощью можно предотвратить любую ошибку на любом уровне вложения.

[gomer]

Сообщение от ShaggyDoc А ловушки ошибок действуют наподобие try... except ... end. vl-catch-all-ххх - наилучшая новинка в LISP за последние 10 лет.

Согласен, вот только такие ловушки напоминают комивояжера, который пока не продаст, не отстанет.

Сообщение от ShaggyDoc ESC для AutoLISP - "лом, против которого нет приема".

ну это логично. Нажимаешь ты отмену, а тебе программа так ехидно

А может, все же, на балет?

С другой стороны, если программе не хватает данных, она правильно работать дальше не будет.
К тому же vl-catch-all-apply по барабану на ошибки command, например, при вставке блока

[ShaggyDoc]

Нажимаешь ты отмену, а тебе программа так ехидно

А это уже зависит от того, как автор напишет. Где-то можно разрешить, где-то нельзя. Об ошибках можно сообщать, а можно и не сообщать.

если программе не хватает данных, она правильно работать дальше не будет

Опять же зависит от программиста.

К тому же vl-catch-all-apply по барабану на ошибки command, например, при вставке блока

И это зависит от программиста. Исключительно. Применяется не одна функция, а связка из них, чтобы появился как бы try... except ...end, только на Lisp

[gomer]

Сообщение от ShaggyDoc Опять же зависит от программиста.

если для вставки блока нужна точка масштаб и угол поворота, то без них блок вставить нельзя, не выдумывать же, это не правильно, более того, vl-catch-all-apply эту ситуацию не отловит, потому что command своя логика, да и вообще она с command работать не хочет, только с лямбдой
для примера
(vl-catch-all-apply '(lambda nil (command "_.insert" "d:\\test" pause 1 1 pause))) - ошибка при нажатии еск во время выбора угла поворота ловится
(vl-catch-all-apply '(lambda nil (command "_.insert" "d:\\test" pause))) - ошибка при нажатии еск во время выбора угла поворота не ловится
(vl-catch-all-apply 'command (list "_.insert" pause "d:\\test" pause 1 1 pause)) - ; ошибка: неверная порядковая функция: COMMAND
так что vl-catch-all-apply - не панацея

[ShaggyDoc]

vl-catch-all-apply - не панацея

Читай ещё раз:

Применяется не одна функция, а связка из них, чтобы появился как бы try... except ...end, только на Lisp

Эту связку я не раз приводил в пример.

(vl-catch-all-apply '(lambda nil (command "_.insert" "d:\\test" pause))) - ошибка при нажатии еск во время выбора угла поворота не ловится

Читай ещё раз:

А это уже зависит от того, как автор напишет...Опять же зависит от программиста

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

Однако, раз тема про lambda, приведу пример использования как раз в ловушке ошибок.
Сначала напишем саму функцию-ловушку.

Код:

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

 
(defun ru-error-catch (protected_expression on_error_expression / catch_error_result)
  (setq catch_error_result (vl-catch-all-apply protected_expression)) 
  (if (and (vl-catch-all-error-p catch_error_result) on_error_expression)
    (apply on_error_expression (list (vl-catch-all-error-message catch_error_result))) 
    catch_error_result
  )
)

Обратите внимание - используются три функции семейства vl-catch-all-

Как надо вызывать - схема:

Код:

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

 
(ru-error-catch
     ;;; Аналог try в других языках
    (function (lambda ()
                ;;; защищаемое выражение  , которое надо попробовать
                (
                
                )
                ;;; То что вернет - будет результатом
              ) 
    ) 
     ;;; Аналог  except  в других языках
	 ;;; что делать, если произошла ошибка
    (function
      (lambda (err_msg)
        ;; если надо - выводим сообщение. err_msg подставит Автокад
        (princ (strcat "\nОШИБКА такой-то функции: " err_msg))
        ;; возвращаем NIL при ошибке
        nil
      ) 
    )   
)

Обратите внимание - два раза используется lambda.

Конечно, "простому инженеру" (прикладному программисту), который механизирует свои типовые задачи, наподобие вставок блоков, с этим трудновато разобраться. Для упрощения работы прикладных программистов создаются библиотеки низкоуровневых функций, в которых спрятаны все сложности. А в конкретной программе (функции, конечно), навешиваемой "на кнопку", надо применять простые высокоуровневые функции. Надежные. Чтобы не писали муру наподобие (command "_.insert" "d:\\test" pause 1 1 pause) только потому что так проще.

Если уж упомянули блоки, то каждому надо вставлять, например, блоки условных обозначений. Причем надо, чтобы вставка блочишки была многократная, в цикле. Чтобы при этом блок "висел" на курсоре. Чтобы можно было задать поворот или не задавать. Чтобы блок ещё и масштабировался правильно. Чтобы могли быть атрибуты, а могли и не быть. И чтобы это можно было легко применить. Чтобы на уровне меню можно было написать:

Сантехнику: (ru-block-insert-from-lib "sanitary\\ru-lib-abok-schem-free-valves-ind" "abok_2_8_05_F-03" 1 1 1 nil))
Топографу: (ru-block-insert-from-lib "land\\ru-lib-topo" "ru_topo_0139" 1 1 1 T))
Строителю: (ru-block-insert-from-lib "common\\ru-lib-common" "number_door_ru" 1 1 1 T))

Здесь применяется библиотечная функция ru-block-insert-from-lib, которая объявлена так
(ru-block-insert-from-lib block_lib_name block_name ins_code x_scale y_scale is_angle0)
Она делает множественную вставку блока с заданными параметрами из библиотеки блоков. Эту функцию здесь не привожу для экономии места. Она внедряет в чертеж блок из библиотеки, вычисляет масштабы вставки и вызывает низкоуровневую функцию _ru-block-multi-insert-scaled-rotated-or-angleask с подготовленными параметрами. Вот её-то и покажу

Код:

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

 
(defun _ru-block-multi-insert-scaled-rotated-or-angleask 
(block_name  x_scale y_scale block_angle msg_insert msg_angle /   
old_attdia old_attreq  result is_angle_ok is_point_ok  do)
 (setq old_attdia (getvar "ATTDIA") old_attreq(getvar "ATTREQ")  do t)
 (setvar "ATTDIA" 0)
 (setvar "ATTREQ" 0)
 (ru-var-clear-insunit)
 (while do
  (ru-error-catch
   (function (lambda ()
              (princ (strcat "\n" msg_insert " или ESC для выхода: "))
              (setq is_point_ok
                    (vl-cmdf "_.INSERT"
                             block_name
                             "_PROTATE"
                             (if block_angle
                              block_angle
                              0
                             )
                             "_PXScale"
                             x_scale
                             "_PYScale"
                             y_scale
                             pause
                    )
              )
              (if is_point_ok
               (progn
                (vl-cmdf
                 x_scale
                 y_scale
                 (if (not block_angle)
                  (progn  (princ "\nУгол поворота <0>: ") pause)
                  block_angle
                 )
                )
                (ru-block-dlg-attedit (entlast))
               )
              )
              (setq do is_point_ok)
             )
   ) 
   nil
  ) 
 ) 
 (ru-var-restore-insunit)
 (setvar "ATTDIA"  old_attdia)
 (setvar "ATTREQ"  old_attreq)
 (princ)
)

Тут и ловушка ошибок есть, и обработка ESC - специально для прерывания цикла, но не для прерывания программы. Ну и lambda - тема ветки.

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

Касательно отлова ошибок - в свое время я пришел в выводу, что *error* лучше не переопределять (причины, в частности, рассматривал тут). Особенно при работе в вертикальных приложениях.

[G-RAV]

Объясните, пожалуйста, как с помощью Lambda получить максимальные и минимальные значения списка, т.е. есть список, например:

Код:

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

((22 12) (1 34) (56 -32) (0 12) (-4 12))

, а получить необходимо минимальное

Код:

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

(-4 -32)

максимальное

Код:

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

(56 34)

. С Foreach разобрался, а вот Lambda не поддается).

[Дима_]

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

[G-RAV]

Через Лямбда не получается, а хотелось бы...
Через Foreach получилось как то вот так:

Код:

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

(foreach x myLIST
    (cond
    ((< (car x) Xmin) (setq Xmin (car x)))
    ((> (car x) Xmax) (setq Xmax (car x)))
    )
    (cond    
    ((< (cadr x) Ymin) (setq Ymin (cadr x)))
    ((> (cadr x) Ymax) (setq Ymax (cadr x)))
    )
  )

Наверное стоит добавить, что перед кодом стоит:

Код:

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

(SETQ Xmin (caar myLIST) Ymin (cadar myLIST) Xmax Xmin Ymax Ymin)

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

Код:

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

 (setq lst '((22 12) (1 34) (56 -32) (0 12) (-4 12)))
(mapcar (function (lambda (f)
                    (apply (function min)
                           (mapcar
                             (function (lambda (x) (f x)))
                             lst
                             ) ;_ end of mapcar
                           ) ;_ end of apply
                    ) ;_ end of lambda
                  ) ;_ end of function
        (list car cadr)
        ) ;_ end of mapcar

[gomer]

Сначала не понял, но потом понял, что думаю о том же. Мой вариант попроще:

Код:

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

 ((lambda (fpar lst)
   (mapcar
     (function
       (lambda (f)
	 (apply fpar (mapcar f lst))
       )
     )
     '(car cadr)
   )
 )
  'min
  '((22 12) (1 34) (56 -32) (0 12) (-4 12))
)

Вариант с foreach, но проще

Код:

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

 ((lambda (f lst / result)
   (setq result (car lst))
   (foreach x lst
     (setq result
	    (list
	      (f (car  result) (car  x))
	      (f (cadr result) (cadr x))
	    )
     )
   )
 )
  min
  '((22 12) (1 34) (56 -32) (0 12) (-4 12))
)

[G-RAV]

Большое спасибо за варианты. С последним разобрался, а вот с первым….
gomer, правильно ли я понял первый вариант? Все первые элементы подсписков объединяются в один список

Код:

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

(22 1 56 0 -4)

, все вторые элементы объединяются во второй список

Код:

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

(12 34 -32 12 12)

и уже в этих списках поиск минимальных значений?

[gomer]

Сообщение от G-RAV Все первые элементы подсписков объединяются в один список

Сообщение от G-RAV все вторые элементы объединяются во второй список

Сообщение от G-RAV и уже в этих списках поиск минимальных значений?

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

[G-RAV]

А вот в этом случае, можно еще оптимальнее?

Код:

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

  ((lambda (str / rs)
(setq rs t i 0)
(foreach x (vl-string->list str)
(cond
((and(<= x 57)(>= x 48))t)
((and(= x 46)(= i 0))(setq i (1+ i)))
(t(setq rs nil))
))rs
)
"текст")

Проверяет является ли содержимое строки положительным числом (целым или вещественным) с точкой в качестве разделителя, если нет возвращает nil, если да t.

[Дима_]

Сообщение от G-RAV можно еще оптимальнее

У Вас идет проверка всего списка - а достоточно закончить на первом неверном.

[TararykovDG]

Сообщение от G-RAV А вот в этом случае, можно еще оптимальнее?

А при чем тут lambda?

На тему

Сообщение от G-RAV Проверяет является ли содержимое строки положительным числом (целым или вещественным) с точкой в качестве разделителя, если нет возвращает nil, если да t.

{Конкурс} Lisp. Пребразование в число при возможности

[G-RAV]

Сообщение от Дима_ У Вас идет проверка всего списка - а достоточно закончить на первом неверном.

Спасибо.. Попробую додумать...

Сообщение от TararykovDG А при чем тут lambda?

Дык.. а тема как называется? Разбераемся ж с lambda, а #54 просто в качестве примера..
За ссылку спасибо..

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

а я, для поиска минимального списка использую другую конструкцию:

Код:

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

 (setq l '((22 12) (1 34) (56 -32) (0 12) (-4 12)))
(apply (function mapcar) (cons (function min) l))

Правда в этой конструкции, лямбда только подразумевается...

[gomer]

Сообщение от Елпанов Евгений а я, для поиска минимального списка использую другую конструкцию:

однако следует помнить это