r5rs

    -2熱度

    1回答

    我開始接觸Lisp,我正在嘗試使用萊布尼茲公式來編寫一個近似pi的過程;我想我很近,但我不知道如何繼續。當前的行爲是它正確地進行了第一次計算,但程序終止並顯示數字「1」。我不確定我是否能像遞歸調用這個定義的函數, ;;; R5RS (define (pi-get n) (pi 0 1 n 0)) (define (pi sum a n count) ;;; if n ==

    0熱度

    2回答

    我在想,下面的代碼是如何評價這個計劃過程3. (define (foo y) ((lambda (x) y) ((lambda (y)(* y y)) y))) (foo 3) 我一直在尋找了一段時間,似乎無法理解爲什麼評價不會導致可以有人提供詳細的一步一步的指導如何評估3?

    1熱度

    1回答

    我想我有一般的想法在這裏概念寫在方案的實施讓利,但語法錯誤obivously (define-syntax mylet (syntax-rules () ((mylet definitions evaluation) ((lambda (map car definitions) evaluations) (map cdar definitions)))))

    1熱度

    2回答

    看來,方案考慮了一些整數和浮點版本採用相同的時候是不同的?,但同樣使用=時,對它們進行比較:不過,如果我 (equal? 2 2.0) ; => #f (= 2 2.0) ; => #t 有一些數字部分(甚至是簡單的數字列表)的遞歸結構,有沒有一種方法可以比較使用=進行數字比較的方法? (equal? '(2 3) '(2.0 3.0)) ; => #f (= '(2 3) '(2.0

    0熱度

    1回答

    (call-with-output-file "b.txt" (lambda (output-port) (display "hello, world" output-port))) 如何以追加模式打開b.txt。所以,我的結果將被附加在文本文件中。我在下面找到了一些答案。但那不是我所期望的。 Append in scheme 我想用「呼叫與輸出文件」的工作。因爲我覺得這個工作正常。通過這

    0熱度

    2回答

    我正在編寫一個計劃程序,最終對操作員列表進行評估。 實施例:(評價「(1 2 +)) - > 3 我具有的功能爲基本運營商合作(+, - ,*,/),但問題進來時,我有一個嵌套名單。 實施例:(評價「(1(2 3 +)*)) - >(無) 我缺少的條件? (define (evaluate lis) (cond ((not (list? lis)) lis)

    0熱度

    2回答

    我正在嘗試僅使用減法來創建除法函數。到目前爲止,我已經足夠處理積極的數字。不斷欺騙我的是處理負數。我可以繼續,只是抓住x和y的絕對值,它完美地工作,但我的答案永遠不會是消極的。這裏的任何人都必須以前做過類似的事情嗎? (define Divide (lambda (a b c) (if (> a 0) (Divide (- a b) b (+ c 1))

    -1熱度

    1回答

    我正在嘗試編寫一個帶兩個參數的forAll過程:系列的開始和結束值。結果閉包需要兩個參數:適用於系列中所有元素的操作以及初始值。 這就是我所擁有的,我似乎錯過了某些東西,或者我不理解背後的概念。 (define (forAll n m) (if (>= n m) '() (forAll (+ n 1) m)) (lambda (op start) (op start n m

    2熱度

    1回答

    我在實習面試中被問到做了一個創建函數的R5RS程序,我們假設有兩個子集。這個函數必須返回#t,如果列表L包含兩個元素總數相等且元素個數相同的子集,否則返回#f。它需要輸入列表L(只有正數)和一些參數(我認爲有用,沒有參數數量的條件),所有參數在開始時都等於0。 我仍然記得的要求如下: - 不要定義其他函數並在「two-subsets」函數中調用它們。 - 它只能使用下面的結構:null ?, co

    0熱度

    2回答

    我正在研究計劃中的作業MetaCircular評估者,並且我需要允許用戶通過將其添加到表中來安裝特殊的表單。這個想法是,當用戶輸入諸如(square 5)之類的東西時,評估者將查找名爲square的表格。如果找到,它將返回lambda聲明,如(lambda (x) (* x x))。 當代碼返回lambda語句時出現問題。我收到以下錯誤信息: Error: Bad function object: