r5rs

-4熱度

1回答

目標是創建一個huffman樹（谷歌，如果你不知道它是什麼），其輸出不包含值的權重，只是位於由佔位符「內部「與。我創建了一個看起來正確的工作函數，除了每個「內部」外，還有一些額外的空列表不應存在。如果有人可以看看代碼，看看我的錯誤或優化它的方式，我會很感激。 (define (build-huffman lst) (let ((x (insert-list-of-pairs lst '(

2熱度

1回答

函數求值爲lambda不能用於定義範圍內的新函數

在方案中，您可以定義返回lambda表達式並使用它們來定義新函數的函數。例如，你可以這樣寫代碼 (define (pow-iter base exp r) (if (= exp 1) r (pow-iter base (- exp 1) (* base r)))) (define (pow exp) (lambda (base) (pow-

1熱度

2回答

（SCHEME）編號 - >英文列表

好的。所以我想知道如何創建一個將隨機數字轉換爲英文單詞組件的函數。如（1001 - >「（一千）或0 - >」（零）和（數名階乘20 - >「（二三次方432萬億902 兆8個十億1.76億六百四萬））我對計算器以前用戶合作，得到的東西，變成一個長數爲3點部分的數字（1341100是百萬，341000 1百0數萬0的人） #lang r5rs (define (three-names n

1熱度

2回答

具有一個參數的方案功能，它將每兩個元素交換

(define (interchange list) (if (empty? list) list (interchange (append (car (cdr list) X))))) 我需要創建一個函數來交換方案列表中的元素對。這就是我來了這麼遠，但我得到的錯誤與empty? Error empty?: undefined; cannot refere

1熱度

2回答

配對2列表方案

SCHEME /球拍/ R5RS 試圖進行遞歸過程，將兩個相同大小的列表配對。只是不能得到遞歸調用的權利。這是我的，我卡住了。 (define (pairs list1 list2) (if (or (null? list1) (null? list2)) '() (cons (car list1) (car list2)) )) 測試用例：（

2熱度

1回答

如何迭代列表中的每個元素而不刪除方案中的元素

我的問題是使用Racket R5RS語言製作一個簡單的正負號程序。問題的基本思想是在列表中的每個元素前面加上/減號，並檢查結果是否是列表中的元素之一。下面是我現在所擁有的： (define plus-minus (lambda (lst l sum) (cond ((null? lst) (cond ((null? l) #f)

-2熱度

3回答

如何使用和/或代替if/cond？

我是新來的計劃編程，我得到了這個任務，我只是無法找到如何正確工作。我應該用一個參數（一個數字）來定義一個過程。如果數字是正數，我希望返回1，如果數字爲負，則返回-1;如果數字爲0，則返回0，僅使用和/或。如果和cond是不允許的。我只得到＃t或#f返回，但你看到那不是我想要的。任何幫助或指針表示讚賞的伎倆

0熱度

1回答

用lambda定義cons，car和cdr - 它是如何工作的？

我似乎無法解釋的利弊，汽車和CDR這個定義是如何工作的： (define (p-cons x y) (lambda (proc) (proc x y))) (define (p-car proc) (proc (lambda (p q) p))) (define (p-cdr proc) (proc (lambda (p q) q))) 我明白，第一個過程

2熱度

1回答

R5RS Scheme輸入輸出：如何將文本寫入/附加到輸出文件？

什麼是在R5RS兼容版Scheme中輸出文本到文件的簡單方法？我使用麻省理工學院的MEEP（使用Scheme進行腳本編寫），我想輸出文本到文件。我發現下面的其他答案＃2： File I/O operations - Scheme How to append to a file using Scheme Append string to existing textfile [sic] in Iro

1熱度

1回答

DrRacket：應用程序：不是程序錯誤在R5RS語言

這是我第一天在Dr.Racket和R5RS語言。我正在嘗試修改下面我分享的現有代碼。 ;; This is an internal helper procedure. ;; - it gets the method out of "in-object" ;; - it invokes the method, passing "for-object" as the ;; "self" for