scheme

2熱度

1回答

我試圖感受一下Scheme中的繪圖庫，但是我已經遇到了問題。 (define defaultpos (make-posn 400 400)) (start 800 800) (draw-circle defaultpos 10 'green) 從理論上講，這應該會在中間打開一個綠色圓圈的新窗口。相反，我得到這個錯誤信息： draw-circle: expects a posn as fir

1熱度

1回答

只按照計劃降序排列數字

我想編寫一個只保留降序數字並排除上升數字的函數。例如： (descending '(6 5 3 1 2 8)) 應該給我(6 5 3 1)。謝謝。

0熱度

1回答

關於Scheme尾遞歸函數的語法錯誤

我正在創建一個尾遞歸函數，它通過傳遞一個係數列表和一個x值來計算一個多項式。例如：評估x^3 + 2x^2 + 5，因此用戶可以在函數調用（poly'（5 0 2 1）1）中通過列表'（5 0 2 1））。我想不通，爲什麼我收到以下錯誤： if: bad syntax in: (if (null? (cdr lst)) (+ total (car lst)) eval-poly-tail-he

0熱度

1回答

流程式遞歸函數以及如何與步驟兩個計數器

我想有，做遞歸以下 ;f(n) = n, if n<4 ;f(n) = f(n-1) + 2f(n-2) + 3f(n-3) + 4f(n-4) 這是我想出了一個功能，但它不包括在每一個乘法遞歸調用。我不知道一個如何落實與方案 (define (function n) (= counter 0) (if (< n 4) n (+ n (functi

-1熱度

1回答

使用argmax找到

好的元素列表數量最多，所以我定義3名列表： (define mylist '((pause 5 5 5)(note 3 4 5)(pause 3 4 4))) (define myseqlist '(sequential-music-element (note 5 5 5) (note 4 3 4) (note 5 3 4))) (define myparlist '(parallel-mus

0熱度

2回答

無法在方案中創建對象

我開始學習Scheme（R5RS）並立即遇到問題。我有這樣的代碼： (define make-source (lambda (seq) (define next list) (define peek list) (let ((seq seq) ;(endl (if (null? endl) #f endl)) ) (lambda (s

0熱度

1回答

從計劃

當前列表中刪除第一個值我正在使我的自定義對象作爲參數的函數，然後從該對象中的列表中獲取第一個參數，將其返回並從對象中刪除它。代碼是： (define (make-source sequence . xs) (let ((a (if (not (null? xs)) xs (list #f)))) (cond ((string? sequence)

0熱度

3回答

如何使用方案在另一個函數中調用函數？

我正在學習Scheme，所以我正在做一個有兩個功能的程序，一個根據飛行人數和飛機上座位的數量計算有多少架飛機將飛行。直到那裏一切都好，問題是當我嘗試在另一箇中使用該功能時，我不知道該怎麼做。第一功能： (define calculate-aeroplanes (lambda (passengers seats) (ceiling (/ passengers seats))))

1熱度

1回答

方案 - 我如何解釋這樣的輸出？

所以我一直在考慮了以下定義： (define head car) (define (tail stream) (force (cdr stream))) (define (addL x y)(cons-stream (+ (head x) (head y))(addL (tail x) (tail y)))) (define fibs(cons-stream 1(cons-stream

-1熱度

2回答

方案：爲什麼我收到此錯誤-assertion違章：錯誤類型[汽車]的參數（車「（））

我的方案的功能正在試圖獲得全省細節： (define (getProvincesHelper sales provincesList) (if (null? sales) provincesList (getProvincesHelper (cdr sales) (append (list (cadr(cadddr sales))) provincesLis