racket

1熱度

2回答

我想寫一個代碼，從列表的每個頂級元素中刪除括號。例如，輸入'（（1 2）（3 4））將產生'（1 2 3 4），而輸入'（（x（y））z'應產生'（x（y）z）。有沒有辦法識別括號對？我想我可以找到一對括號並將其刪除，但我不知道如何做到這一點，以及如何從頂部元素中刪除。

0熱度

2回答

在方案中編寫除法函數

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

0熱度

1回答

球拍，使用索引從列表中獲取值

我想從給出索引的列表中獲取元素。但該指數將得到低谷的另一個功能： #lang racket (define (list-index e lst) (if (null? lst) 0 (if (equal? (car lst) (car e)) 1 (+ 1 (list-index e (cdr lst)))))) (list-

0熱度

2回答

數x和係數的列表，並返回結果多項式1 + 2 +⋯+適用於第一個參數

這是我的函數： (: compute-poly : Number (Listof Number) -> Number) (define (compute-poly x numlist) (: compute-poly-tail : Number (Listof Number) Number Number -> Number) (define (compute-poly-tai

0熱度

2回答

從lambda表達式使用返回值？

我目前有一個函數，它包含一系列函數和一個單詞列表，並將這些函數中的每一個應用到單詞列表並編譯一個列表。我想返回一個函數，檢查一個單詞是否在#t或#f的列表中，但是我不確定如何做到這一點，而不被允許使用set。以下是我迄今爲止創建列表： (define list-checker (lambda (flist words) (cond ((null? flist) '(

0熱度

1回答

在球拍中創建二叉搜索樹？

嘗試創建不可變的二叉搜索樹。我從創建構造函數開始創建空列表，以及使用以下代碼逐個向樹添加元素的方法。 #lang racket (define (constructTree) '()) (define (addToTree Tree k v) (cond [(null? Tree) (cons Tree cons((cons k '()) v))] [else

1熱度

1回答

球拍，在兩個不同尺寸的列表

拆分列表此代碼分割在兩個相等大小的列表的列表： (define (split ls) (if (or (null? ls) (null? (cdr ls))) (list ls '()) (let ((next (split (cddr ls)))) (list (cons (car ls) (car next)) (cons (ca

0熱度

1回答

入門鑰匙從鑰匙事件按下球拍

我想下面的代碼拿起上/下/左/右按鍵，修改對http://docs.racket-lang.org/gui/windowing-overview.html (define fr (new frame% [label "Testing"] [width 300] [height 300])) (define msg (new message% [parent fr] [label ""]))

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

0熱度

1回答

抽象/具體語法的序列創建（方案）

首先，這是作業。我不打算得到一個完整的解決方案，但我堅持如何解釋這個問題。我們基本上是從詞法分析器和解析器中爲我們在課堂上創建的語言做出解釋。具體來說，就是我被困在正在使用計劃/ Drracket實現使用調用該方法的解析器「讓-SEQ」，可以通過以下規則定義創建序列： (make-seq (e)) = e (make-seq (e1 e2 ... en)) = (make-let '*tem