zoukankan      html  css  js  c++  java
  • 【SICP练习】145 练习4.1

    练习4-1

    原文

    Exercise 4.1. Notice that we cannot tell whether the metacircular evaluator evaluates operands from left to right or from right to left. Its evaluation order is inherited from the underlying Lisp: If the arguments to cons in list-of-values are evaluated from left to right, then list-of-values will evaluate operands from left to right; and if the arguments to cons are evaluated from right to left, then list-ofvalues will evaluate operands from right to left.Write a version of list-of-values that evaluates operands from left to right regardless of the order of evaluation in the underlying Lisp. Also write a version of list-of-values that evaluates operands from right to left.

    分析

    如题中所说的,list-of-values的求值顺序由cons的参数而定。同时也要使用no-operands?来判断exps,如果为真则返回空。而左右之分,在let中的求值顺序可以决定。如果是从左到右就应该是先求值first而后求值rest,最后用cons来构造到一起即可。

    代码

     (define (list-of-values-l-to-r exps env) 
       (if (no-operands? exps) 
           '() 
           (let ((first (eval (first-operand exps) env))) 
             (let ((rest (list-of-values-l-to-r (rest-operands exps) env))) 
               (cons first rest))))) 
    
     (define (list-of-values-r-to-l exps env) 
       (if (no-operands? exps) 
           '() 
           (let ((rest (list-of-values-r-to-l (rest-operands exps) env))) 
             (let ((first (eval (first-operand exps) env))) 
               (cons first rest))))) 



    感谢您的访问,希望对您有所帮助。 欢迎大家关注或收藏、评论或点赞。


    为使本文得到斧正和提问,转载请注明出处:
    http://blog.csdn.net/nomasp


    版权声明:本文为 NoMasp柯于旺 原创文章,如需转载请联系本人。

  • 相关阅读:
    TPL中的异常
    异步接口
    TPL高级探秘
    TPL应用:HttpClient
    WLS_Oracle Weblogic部署应用程序(案例)
    WLS_Oracle Weblogic服务器生命周期(案例)
    WLS_Oracle Weblogic使用WLST工具(案例)
    WLS_Oracle Weblogic MSI和创建被管理服务器(概念)
    WLS_Oracle Weblogic配置文件(案例)
    WLS_Oracle Weblogic目录结构(案例)
  • 原文地址:https://www.cnblogs.com/NoMasp/p/4786055.html
Copyright © 2011-2022 走看看