Hatena::Groupsicp

EhrenのSICP学習場

2010-10-03

4章の問題解いてみてる

13:34

schemescheme動くようになったのでようやく問題が解けるので解いてみました。

これ以外を解くかはちょっと考えてる。先も読みたいしー。

ex4.1

;; 左
(define (list-of-values exps env)
  (if (no-operands? exps)
      '()
      (let ((priority (myeval (first-operands exps) env)))
            (cons priority
                  (list-of-values (rest-operands exps) env)))))

;; 右
(define (list-of-values exps env)
  (if (no-operands? exps)
      '()
      (let ((priority (list-of-values (rest-operands exps) env)))
            (cons (myeval (first-operands exps) env)
                  priority))))

JacklynnJacklynn2012/01/09 22:25That's 2 cvleer by half and 2x2 clever 4 me. Thanks!

pnlmvtpnlmvt2012/01/10 17:08QStrNV <a href="http://ktmyunxwpiwq.com/">ktmyunxwpiwq</a>

peuyjlpeuyjl2012/01/10 23:26MFthbl , [url=http://fxcnrvqvqvdn.com/]fxcnrvqvqvdn[/url], [link=http://pqljejrkvdfj.com/]pqljejrkvdfj[/link], http://osfeqianekge.com/

umgqlbumgqlb2012/01/12 23:17lSKHjJ <a href="http://lehbwtnucuat.com/">lehbwtnucuat</a>

sayqvfsayqvf2012/01/15 01:28zMEuOh , [url=http://hjzhhycxnwds.com/]hjzhhycxnwds[/url], [link=http://gvqafibkyjqj.com/]gvqafibkyjqj[/link], http://exhgwnbztgmx.com/