Schemeの単純なインタープリタ

Question

私の問題点を例で説明します。

(play '(left nothing right left))を取得します。リスト内の名前の中には、実際の手続き、スキップしたいものがあります。

(define (left) 
    'left 
) 

名前がリスト内にあるプロシージャを解釈する必要があります。解決策は何ですか？

私は((car '(left nothing right left)))をしようとすると、私はエラーを取得する：手順アプリケーション：期待される手順、与えられた：左（引数なし）

Answer 1

(car '(left nothing right left))は手続きの名前であるシンボルleft、と評価さではなく、実際にプロシージャ、それであなたはそれを呼び出すことはできません。あなたが手順に連想リストのマッピングシンボルを構築したいと思う

：

(define actions `((left . ,(lambda() 'left)) 
        (right . ,(lambda() 'right)) 
        (nothing . ,(lambda() (display "I'm staying put"))))) 

そして、あなたはまた、あなたができる

((cdr (assoc (car '(left nothing right left)) actions))) 

Answer 2

としてあなたのリストの最初の要素のための適切な関数を呼び出すことができますあなたが評価したいシンボルとあなたが評価したくないシンボルの混合物を含むリストを構築するには、quasiquotingを使用します。それはシンボルとして残されるのでnothingが非引用されていない間

(play `(,left nothing nothing ,right nothing)) 

leftとrightは、あなたが（そのような手順など）としてそれらを定義したものは何でもに拡大していきます。左これは再び私を返して

(define (play xs)(for-each (lambda (x)(if (procedure? x)(x) x)) xs))