1

この while ループがメタサーキュラー インタープリターで機能しないのはなぜですか。インタラクション ウィンドウでこれを実行するにはどうすればよいですか?

((while? exp) (eval (while->combination  exp) env)) 

(define (while-condition expr) (cadr expr))
 (define (while-body expr) (caddr expr))

 (define (while->combination exp)
         (sequence->exp
                 (list (list 'define  
                                 (list 'while-iter) 
                                         (make-if (while-condition exp)  
                                                          (sequence->exp (list (while-body exp)  
                                                                                        (list 'while-iter))) 
                                                          'true))
                           (list 'while-iter))))
4

1 に答える 1

1

これに答えるために、SICP 4.1.1 で説明されているメタサーキュラー エバリュエーターを使用しました。これは、実行するための手順がコードに欠けていたためです。

したがって、次のようなテストフォームがある場合は、次のよう(while (call-something) (do-something-1) (do-something-2)))に引用して送信できますwhile->combination。

;; NB: notice I quote the code
(while->combination '(while (call-something) 
                       (do-something-1)
                       (do-something-2)))

DrRacket を使用している場合は、定義ウィンドウの最後に同じものを配置しDebug >|て、コードを簡単に実行できます。

これを実行して得られる出力は次のとおりです。

(begin 
  (define (while-iter) 
    (if (call-something) 
        (begin (do something-1) 
               (while-iter))
        true)) 
  (while-iter))
于 2014-03-24T18:55:15.443 に答える