Skip to content

Latest commit

 

History

History
190 lines (111 loc) · 6.36 KB

README.md

File metadata and controls

190 lines (111 loc) · 6.36 KB
Raw

理解不足の問題

問題2.6

チャーチ数

問題2.16

一般に等価な式が異なる答えになる理由を説明せよ. この欠点がない算術演算パッケージを作成することは出来るか, あるいは不可能かも考えよ.

よく出てくる決まった構文が出てきたら置き換える なるべく誤差の伝播が少ない形式を選ぶというアルゴリズムもある。

Huffman木

  • 問題2.69 Huffman木を生成する手続きを書け.
  • 問題2.71 記号の相対頻度が1,2,4,...2^(n-1)であるとして, N=5, N=10のHuffman木を書け.
  • 問題2.72

make-code-tree を使い, 集合の最小重みの要素を順に合体させ, 要素がひとつになったら止める.

多項式システム

  • 問題2.88 多項式システムに減算処理を追加する.
  • 問題2.90 "薄い"多項式と"濃い"多項式の両方を扱うシステムを作る(重い).
  • 問題2.91 多項式の割り算. 素因数分解する必要がある.
  • 問題2.92 変数に順序(index?)を付けて多項式パッケージを拡張し, 異なる変数の多項式とでも加算/乗算ができるようにせよ.

多項式システム(+ 有理数)

  • 問題2.93 有理数演算パッケージが汎用演算を使えるように修正せよ.
  • 問題2.94 多項式の最大公約数を求めるgcd-polyを書け.
  • 問題2.95 pseudoremainder(擬剰余)
  • 問題2.96 有理関数を最低項まで引き下げる.
  • 問題2.97 reduce-polyで有理数入り多項式を簡約化

問題3.19

リストのcdrを調べ, 循環が含まれるかどうか判定する手続き(問題3.18)...を, 高速化する戦略.

問題3.23

デキュー(deque: double-ended queue) を実装する. デキューは項目が先頭と末尾のどちらでも挿入/削除が可能な並び. すべての演算は O(1) ステップで完了する実装でなければならない.

問題3.26

二進木で表(table)を組織化し, 巨大データも効率良く扱えるようにする.

問題3.46

test-and-set!を通常の手続き(演算を不可分化しない)で実装した場合, 相互排除器(mutex)が破綻することを示せ.

冪級数

  • 問題3.61

定数項が1の冪級数S(ref: 問題3.59)に対して S・X = 1 となる級数Xを見つけるには, 以下のように解けば良い

        S・X = 1
(1 + S_R)・X = 1
  X + S_R・X = 1
           X = 1 - S_R・X

言い換えればXは定数項が1で, 高次の項はS_R掛けるXの符号を変えたものの冪級数である. この考え方を使い, 定数項が1の冪級数Sについて, 1/Sを計算する手続きinvert-unit-seriesを書け.

  • 問題3.62

問題3.60と問題3.61を使い, 二つの冪級数を割る手続きdiv-seriesを定義せよ.

問題3.64

引数としてstreamと数値(許容誤差) をとるstream-limitを定義せよ. 用例は以下.

(define (sqrt x tolerance)
  (stream-limit (sqrt-stream x) tolerance))

問題4.36

a-pythagorean-triple-betweenは, 整数3ツ組(i,j,k)のうち, i<=jでj^2+j^2=k^2 であるものを見つける手続き. これを改良し, 無限にPythagras三角形を生成するような手続きを書け. 単にan-integer-betweenをan-integer-starting-fromに書き換えただけでは動かない.

問題4.41

multiple-dwelling問題を解くための "通常の" Schemeプログラムを書け.

問題4.42

嘘つきパズルを解け.

問題4.43

ヨットの名付けパズルを解け.

問題4.44

非決定性計算amb評価器を使い, エイトクイーンパズルを解け... の理解.

(define (safe? positions)
  (define (two-queens-safe? q1 q2)
    (let ((row1 (car q1))
          (col1 (cadr q1))
          (row2 (car q2))
          (col2 (cadr q2)))
      (and (not (= row1 row2))
           (not (= (- col2 col1)
                   (abs (- row2 row1)))))))
  (let ((new-queen (list (last positions) (length positions))))
    (define (check col positions)
      (cond ((null? (cdr positions)) true)
            ((two-queens-safe? (list (car positions) col)
                               new-queen)
             (check (+ col 1) (cdr positions)))
            (else false)))
    (check 1 positions)))

問題4.67

質問システム(query-driver-loopのやつ)にループ検知システムを実装せよ

一般的な考え方は, システムは現在の推論のある種の歴史を保持し, 既に作業した質問の処理を始めないようにするものである. この歴史にどのような情報(パターンやフレーム)を入れるべきか, またどうチェックしたらよいか述べよ.

問題5.28

本文中にある"末尾再帰じゃないバージョン"のev-sequenceを利用したところ total-pushesとmaximum-depshが固定値になってしまう. 問題文的にはすべて線形増加になってほしいのに.

問題5.30

評価器のエラーハンドリング

TODOs

neon $ git grep TODO

my_defs.scm:17:; TODO: extend average so that it can be used with any number of arguments
sec2/q2.39.scm:21:; TODO: appendを使わないパターン
sec2/sicp/sec2.4.3-message-passing.scm:20:;; TODO: => q2.75, 2.76
sec3/q3.61.scm:3:;; TODO
sec3/q3.62.scm:1:;; TODO
sec3/q3.64.scm:7:;; TODO
sec3/q3.65.scm:5:               (stream-map - (ln2-summands ...TODO))))
sec3/q3.71.scm:39:;; TODO: in Haskell
sec3/sec3.1.2.scm:8:  ;... TODO
sec3/sec3.2.4.scm:16:;; TODO: 図3.11

Clojure

On 2nd lap, I'd like to use Clojure.

$ cd clj
$ lein deps