Я знаком с Common Lisp и пытаюсь изучить некоторые схемы, поэтому я пытался понять, как я буду использовать Scheme для вещей, которые я обычно кодирую на Common Lisp.
В Common Lisp есть fboundp, который сообщает мне, привязан ли символ (значение переменной) к функции. Итак, я бы сделал это:
(let ((s (read)))
(if (fboundp s)
(apply (symbol-function s) args)
(error ...)))
Возможно ли это в схеме? Я пытался найти это в спецификации R6RS, но ничего похожего не нашел.
Сюда?
EVAL, чтобы получить его значениеPROCEDURE?В Scheme функции не привязаны к символам, как в Common Lisp. Если вам нужно знать, действительно ли значение является процедурой, вы можете использовать предикат procedure?:
(if (procedure? s) (do-something-with s) (do-something-else))
В переносимой Scheme нет прямого способа достичь того, что хочет сделать ваш примерный код, поскольку символы в Scheme представляют собой просто унифицированные строки, в которых отсутствуют слоты значений / функций / списков Common Lisp.
Вы можете попробовать что-то вроде:
(define function-table (list `(car ,car) `(cdr ,cdr) `(cons ,cons) `(display ,display)))
(let* ((s (read))
(f (cond ((assq s function-table) => cadr)
(else (error "undefined function")))))
(apply f args))
т.е. определение вашего собственного отображения "хороших" функций. Это будет иметь то преимущество, что вы можете ограничить набор функций только «безопасными» или чем-то еще.
