sicp

0熱度

1回答

最近，我正在學習SiC顆粒，但我遇到一個奇怪的問題： Error: remainder: contract violation expected: integer? given: '(3 4 5 6) argument position: 1st other arguments...: 2 這裏是我的代碼 (define (same-pari

2熱度

1回答

SICP練習3.13 - 製造循環

我在做exercise 3.13 from SICP但我不確定我的答案。練習3.13：考慮下列使循環過程，它使用在練習3.12所定義的最後一對程序：（定義（使循環x）的（設定CDR（最後所對x）x）的x）的繪製的箱和指針圖，其示出了由（定義Z（使循環（列表 'A' b「創建的結構z對於C）））如果我們發生什麼事嘗試計算（最後一對z）？我試圖理解爲什麼 (last-pair z)

0熱度

1回答

使用元素集？

當前正試圖圍繞着Scheme中二叉樹的數據抽象。我正在關注SICP課程，並查看二叉樹的實現，但我不確定如何使用它。 ;; Abstraction barrier (define (make-tree entry left right) (list entry left right)) (define (entry tree) (car tree)) (define (le

0熱度

1回答

方案/球拍 - 未定義的功能;初始化

目前通過SICP去之前不能使用，並且靠近第一章結束時，他們問你能編寫圓周率的值，與 pi/4 = (2 * 4 * 4 * 6 * 6 * 8 * ...)/(3 * 3 * 5 * 5 * 7 * 7 *..) 我有以下功能定義： ;Term and Next are both functions, a and b are the range of the product (define (p

4熱度

3回答

遞歸算法中的基本情況和時間複雜度

我想對O（N）函數做一些說明。我正在使用SICP。考慮，在僞代碼生成一個遞歸過程書中的階乘函數： function factorial1(n) { if (n == 1) { return 1; } return n*factorial1(n-1); } 我不知道如何來衡量的步數。也就是說，我不知道如何「一步」的定義，所以我用的語句從書中定義步：

1熱度

2回答

以列表形式保存子列表

我正在做一個家庭作業，以遍歷DAG，找到最短路徑。在一些SO答案的幫助下，我已經完成了很多部分。這就是說，我無法獲得函數來返回一個列表，像我需要進一步處理數據。數據文件有子列表的形式列表（節點節點2重） (define (children? node) (define list '(1)) (map (lambda (x) (cond ((equal?

0熱度

1回答

SICP ex 3.17 - 計數對 - 我看不出爲什麼我的答案出錯

有人可以解釋爲什麼下面不起作用嗎？我正在通過SICP。這個練習要你創建一個計算結構對的函數。該程序用於三種結構，全部使用三對。 (define (count-pairs x) (define (helper x encountered) (if (or (not (pair? x)) (memq x encountered)) 0 (begin

0熱度

1回答

計劃 - 打印在此代碼中未定義

我遇到的問題是我已經給出此代碼來測試並用於分析。除了當我運行它，打印定義正在抱怨。它一直說「打印：未定義」任何人都可以提供適合此問題的打印定義嗎？ (define (integral integrand initial-value dt) (define int (cons-stream initial-value (add-streams (scale-st

-1熱度

1回答

SICP示例。 cond的作品，但如果沒有

如果我使用SICP第1章中的以下代碼，它會給出正確的答案。 (cond ((= a 4) 6) ((= b 4) (+ 6 7 a)) (else 25)) 打印16 如果我通過更換COND，如果它不能正常工作 (if ((= a 4)6) ((= b 4) (+ 6 7 a)) (else 25)) 給出了錯誤： The object #f is not applicable. 我在

-1熱度

1回答

錯誤：（/）錯誤的參數類型：＃<unspecified>雞方案平方根近似

我正在關注麻省理工學院的SICP講座，而這正是我試圖通過亞歷山大方法的Heron找到一個數的平方根近似值。這是我第一次嘗試lisp，很抱歉做出了noobie錯誤。 (define guess 1) (define (avg a b) (/ (+ a b) 2)) (define (try guess x) (if (goodEnough guess x) g