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

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

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

SICP始めました 53

SICP五十三日目

 

問題2.78

 ぱっと問題文を読んだときは何をすればいいのかよくわからなかった。

 とりあえず、type-tag、contents、attach-tagで数を認識できるようにすればいいのか?

 以下アンダーライン部分が追加したところ 

 

( define ( type-tag datum )
 ( cond ( ( pair? datum ) ( car datum ) )
    ( ( number? datum ) 'scheme-number )
    ( else ( error "Bad tagged datum -- TYPE-TAG” datum ) ) ) )

( define ( contents datum )
 ( cond ( ( pair? datum ) ( cdr datum ) )
    ( ( number? datum ) datum )
    ( else ( error "Bad tagged datum -- CONTENTS” datum ) ) ) )

( define ( attach-tag type-tag contents )
 ( if ( eq? type-tag 'scheme-number )
  contents
  ( cons type-tag contents ) ) )

  

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

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