読者です 読者をやめる 読者になる 読者になる

yy_taroのとりとめのない落書き

メインフレームの導入・設計・構築ができるぐらいの知識があったりする。

SICP始めました 41

SICP四十一日目

 

意外に大変だった。

最近急に暑くなってバテ気味です。

SICPもバテ気味です。

 

今こそ本書を一旦再構成するともっと良いものが生まれるのではないか。と思う今日この頃です。(私にはその力はありませんが。。。)

 

問題2.62

( define ( union-set set1 set2 )
 ( cond ( ( null? set2 ) set1 )
    ( ( null? set1 ) set2 )
    ( else ( let ( ( x1 ( car set1 ) ) ( x2 ( car set2 ) ) )
     ( cond ( ( = x1 x2 )
         ( cons x1 ( union-set ( cdr set1 ) ( cdr set2 ) ) ) ) 
        ( ( < x1 x2 )
         ( cons x1 ( union-set ( cdr set1 ) set2 ) ) )
        ( ( < x2 x1 )
         ( cons x2 ( union-set set1 ( cdr set2 ) ) ) ) ) ) ) ) )

 

計算機プログラムの構造と解釈[第2版]

計算機プログラムの構造と解釈[第2版]