Hatena::Groupsicp

yharaの日記

参考リンク
 | 

2007-05-03

[].1 14:45

上から順に

10
12
8
3
6
(処理系依存) a=3
(処理系依存) b=4
19
#f
4 ((> b a)は#tで、(< b (* a b))も#tなので)
16
6
16

だろ?


MITの原文( http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-10.html#%_sec_1.1.6 )をgoshにコピペしてみる。

yhara@meteor:~/src/sicp % gosh
gosh> 10
10
gosh> (+ 5 3 4)
12
gosh> (- 9 1)
8
gosh> (/ 6 2)
3
gosh> (+ (* 2 4) (- 4 6))
6
gosh> (define a 3)
a
gosh> (define b (+ a 1))
b
gosh> (+ a b (* a b))
19
gosh> (= a b)
#f
gosh> (if (and (> b a) (< b (* a b)))
    b
    a)
4
gosh> (cond ((= a 4) 6)
      ((= b 4) (+ 6 7 a))
      (else 25))
16
gosh> (+ 2 (if (> b a) b a))
6
gosh> (* (cond ((> a b) a)
         ((< a b) b)
         (else -1))
   (+ a 1))
16
gosh>

合ってたみたい。

ChristianaChristiana2012/01/10 09:33That's more than snebsile! That's a great post!

sgiodkkfjgssgiodkkfjgs2012/01/10 19:14Gv8tkW <a href="http://cjqpfjauqswr.com/">cjqpfjauqswr</a>

ntfhyvcwntfhyvcw2012/01/12 22:54TKFix7 <a href="http://egvshzpudncy.com/">egvshzpudncy</a>

 |