sicp

-1熱

1答えて

なぜ以下のスキーム関数が結果を出力しないのか教えてください。私はDrRacketを使用しています。 #lang sicp (define (sqr x) (* x x)) (define (sum_of_greatest_squares a b c) (if(> a b) (if(> a c) (if(> b c) ((+ (sqr a

0熱

1答えて

scheme - このコードでは印刷が定義されていません

私が抱えている問題は、このコードをテストして分析するために使用されていることです。それを実行する以外は、印刷定義に不満があります。それは "print：undefined"と言い続けますこの問題に適した印刷定義を私に供給できる人はいますか？ (define (integral integrand initial-value dt) (define int (cons-stre

0熱

1答えて

は、私はSICPを学んでいるが、私は奇妙な質問会い、最近のparams

を期待： Error: remainder: contract violation expected: integer? given: '(3 4 5 6) argument position: 1st other arguments...: 2 ここに私のコードだが (define (same-parity sample . other)

0熱

1答えて

ブロック構造の内部定義

(define (sqrt x) (define (good-enough? guess x) (< (abs (- (square guess) x)) 0.001)) (define (improve guess x) (average guess (/ x guess))) (define (sqrt-iter guess x) (if (go

0熱

1答えて

要素集合を使用していますか？

現在、Schemeのバイナリツリーのデータ抽象化についての私の頭の中を包み込んでいます。私はSICPのカリキュラムに従っており、バイナリツリーの実装を見ていますが、の方法がわかりません。を使用してください。 ;; Abstraction barrier (define (make-tree entry left right) (list entry left right)) (def

-1熱

1答えて

エラー：（/）悪い引数タイプ：＃<unspecified>チキンスキーム平方根近似

MITのSICP講義に従っています。これは、アレキサンドリアの方法のHeronによる数の平方根近似を求めようとしたものです。これは初めてのことですが、lobを試してみました。 (define guess 1) (define (avg a b) (/ (+ a b) 2)) (define (try guess x) (if (goodEnough guess x)

1熱

2答えて

サブリストをリスト形式で保存する

DAGをトラバースするための宿題割り当てに取り組んでいます。いくつかのSOの答えの助けを借りて、私は場所にかなりの部分を持っています。つまり、データをさらに処理する必要があるように、サブリストのリストを返す関数を取得するのに問題があります。（（B3 B5の57：データファイルは、私は（？子供B3）を実行すると、私がどのように見える結果を得る形でのサブリストのリスト（ノード1ノード2重量） (de

0熱

1答えて

SICP ex 3.17 - カウントペア - 私の答えが間違っている理由がわかりません

誰かが以下の理由で動作しない理由を説明できますか？私はSICPを通過しています。この演習では、構造のペアを数える関数を作成する必要があります。このプログラムは3つの構造で使用され、すべてが3つのペアで構成されています。 (define (count-pairs x) (define (helper x encountered) (if (or (not (pair? x)) (