Question

我正在尝试在Scheme中构建一个基本的解释器，我想使用关联列表映射到算术函数。这就是我到目前为止所做的：

; A data type defining an abstract binary operation
(define binoptable
  '(("+" . (+ x y)))
    ("-" . (- x y))
    ("*" . (* x y))
    ("/" . (/ x y)))
)

问题是表格的RHS上的元素存储为符号列表。有没有人对如何补救他有任何想法。提前谢谢。

Answer 1

你可能想要：

(define binoptable
  `(("+" . ,+)
    ("-" . ,-)
    ("*" . ,*)
    ("/" . ,/)))

此外，您可以使用宏来更容易指定：

(define-syntax make-binops
  (syntax-rules ()
    [(make-binops op ...)
     (list (cons (symbol->string 'op) op) ...)]))
(define binoptable (make-binops + - * /))

使用关联列表的Scheme中的函数表

1 个答案: