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

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

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

SICP始めました 23

SICP二十三日目

 

悲報、毎日更新しようと思っていたのに途切れてしまった。

ショックとは言え自分が悪いんですけどね。

まさかあの作業がこんなに時間がかかるものだとは思ってもいなかったです。

 

気を取り直して、ちょっとだけ進めました。

 

問題2.30

( define ( square-tree ls )
 ( cond ( ( null? ls ) ‘( ) )
    ( ( not ( pair? ls ) ) ( * ls ls ) ) 
    ( else ( cons ( square-tree ( car ls ) )
            ( square-tree ( cdr ls ) ) ) ) ) )

( define ( square-tree2 ls )
 ( map ( lambda ( x )
     ( if ( pair? x )
      ( square-tree2 x )
      ( * x x ) ) )  
   ls ) )

 やっぱりmapを使うと処理がすっきりしますね。

 ただ、まだ若干使いこなせていなかったりします。

 

 

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

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