В Emacs Lisp нет синтаксиса для необязательных аргументов со значениями по умолчанию, отличными от nil. Какой приём предпочтителен для задания таких значений?
Вот излишне явная реализация, чтобы показать, что я имею в виду.
(defun perform (entry &optional given-extra)
(let ((extra (or given-extra fallback-extra)))
(perform-body entry extra)))Есть ли общепринятый предпочтительный способ это записать?
There is no Emacs Lisp syntax for optional arguments with defaults other than nil. Which idiom is preferred when providing defaults for those arguments?
Here's an excessively explicit implementation to show what I mean.
(defun perform (entry &optional given-extra)
(let ((extra (or given-extra fallback-extra)))
(perform-body entry extra)))Is there a generally preferred way to write this?
С помощью cl-defun необязательным аргументам можно задавать собственные выражения по умолчанию:
(cl-defun perform (entry &optional (extra fallback-extra))
(perform-body entry extra))Здесь выражение по умолчанию, fallback-extra, вычисляется при каждом вызове функции.
With cl-defun, optional arguments can be given their own default expressions:
(cl-defun perform (entry &optional (extra fallback-extra))
(perform-body entry extra))Here the default expression, fallback-extra, gets evaluated on every invocation of the function.
Без предложенных @tobin расширений Common Lisp нужно проверять, был ли передан необязательный аргумент. Учтите, что let здесь на самом деле не нужен. Такой вариант кажется мне более идиоматичным:
(defun perform (entry &optional extra)
(or extra (setq extra fallback))
(perform-body entry extra))В комментариях предложили, что unless может быть предпочтительнее or:
(defun perform (entry &optional extra)
(unless extra (setq extra fallback))
(perform-body entry extra))Ещё одна мысль из комментариев: более чистый функциональный вариант использует let, как в вопросе, но не требует двух разных имён:
(defun my-perform (entry &optional extra)
(let ((extra (or extra fallback)))
(perform-body entry extra)))Конечно, если необязательный аргумент используется лишь однажды, можно просто написать:
(defun my-perform (entry &optional extra)
(perform-body entry (or extra fallback)))Without the Common Lisp additions @tobin suggested, you have to test whether an optional argument was provided. Note that a let isn't actually necessary in this situation. I'd find this version more idiomatic:
(defun perform (entry &optional extra)
(or extra (setq extra fallback))
(perform-body entry extra))The comments suggest that unless could be a better choice than or:
(defun perform (entry &optional extra)
(unless extra (setq extra fallback))
(perform-body entry extra))Another point from the comments: a more purely functional approach uses let, like the question does, without needing two different names:
(defun my-perform (entry &optional extra)
(let ((extra (or extra fallback)))
(perform-body entry extra)))Naturally, when the optional argument occurs only once, you can simply write:
(defun my-perform (entry &optional extra)
(perform-body entry (or extra fallback)))Вот объявление enum, которое я использую в GDScript: Хочу случайно выбирать вариант enum, не перечисляя все возможные вариант…
Как в Nim записать операцию взятия остатка? cell % 7 == 0 выдаёт undeclared identifier: '%' Ни поиск в Google, ни просмотр SO…
Как сделать так, чтобы моя функция возвращала значение после завершения выполнения? Например, у меня есть: ROUTINE N ? N ⍴ 12…
