scheme

1熱度

1回答

我使用下面的代碼爲一個小的GUI程序： #lang racket/gui (define ff (new frame% [label "Adjust widths"] [height 100] [width 300])) (new message% [parent ff][label "testing"]) (new text-field%

0熱度

1回答

找到除數的數量

我需要在#lang球拍中寫一個函數來確定一個正整數所具有的除數量。（實施例：6具有4個除數; 1,2,3,6）到目前爲止，我有：（定義（分AB）（如果（= 0（模AB））#T＃ f））的我需要使用這個輔助函數來寫函數（除數-高達NK），該其計算除數的數n 1和k之間具有（所以它計算ñ 的約數的數直到值k）。

0熱度

1回答

有什麼方法可以使用遞歸寬度優先實現來創建二叉樹的副本？

本質上講，我試圖做的是採取與數據定義 binary_tree: number | (symbol binary_tree binary_tree) 二叉樹和創造，每個葉片（數字）替換爲計數器的號樹的新版本。我試圖從左到右，然後從上到下這樣做，所以使用寬度優先搜索似乎是按順序訪問每個節點的明顯選擇。但是，我的問題是這樣的。我需要積累一個新的二叉樹來返回它。因爲我們正在訪問每個節點，是否有任何可能

-1熱度

1回答

方案：球拍中的循環功能

編寫一個遞歸函數，給定一個正整數k，計算產品(1-1/2)(1-1/3)...(1-1/k)。我試圖做一個循環，但不知道從哪裏開始。任何想法？

-1熱度

1回答

右起第0123位

您如何創建一個功能，可以讓您從大數右起找到第N位？例如，（f 2345 2）將產生4.我是一名初學者，所以我正在使用DrRacket進行編程，我希望代碼可以在Racket中使用。

-2熱度

1回答

方案 - 數字Secuence那筆0在列表

我想實現一個遞歸函數（求和CERO）給定一個整數列表，它打印的連續編號的所有可能secuences是總結0 實施例1：（和 - 零「（4 2 -3 -1 0 4）） =>（-3 -1 0 4）（0）實施例2：（和數零「（3 4 -7 3 1 3 1 -4 -2 -2）） =>（3 4 -7）（4 -7 3）（-7 3 1 3）（3 1-4）（3 1 3 1 -4 -2 -2）（3

0熱度

1回答

方案行程長度編碼

的問題是：寫一個函數（編碼L），它利用原子升的列表和遊程長度編碼的列表，使得輸出是（對形式的列表值長度），其中第一個元素是一個值，第二個元素是值在編碼列表中出現的次數。例如： (encode '(1 1 2 4 4 8 8 8)) ---> ((1 2)(2 1)(4 2)(8 3)) 這是我的代碼至今： (define (encode lst) (cond ((nul

1熱度

2回答

爲什麼在Scheme中不評估？

我正在使用DrRacket環境來嘗試Scheme語言。我定義的總和+ 1如下： (define sum+1 '(+ x y 1)) 我想知道爲什麼下面的表達式不計算： (let ([x 1] [y 2]) (eval sum+1)) ，而這樣做返回正確的值： (define x 1) (define y 2) (eval sum+1)

1熱度

1回答

你如何在Scheme中逐一顯示字母？

我是Scheme語言的新手，目前正在使用Simply Scheme教材。我與一些程序嘗試，和我注意到，當我做這些功能（如下圖），它打印的話在「口頭」的時尚： (define (display-all sep . vs) (for-each display (insert-between sep vs))) (define (insert-between v xs) (con

0熱度

1回答

方案錯誤：#t不是函數[子集？，（anon）]

我收到兩個錯誤，我顯然不明白這裏的東西。第一個是當輸入都是集合時。這是它給我的錯誤： Error: #t is not a function [subset?, (anon)] 第二個出現時，A或S不是一個集合，它是他的else語句。我得到這個： Error: execute: unbound symbol: "else" [subset?, is-set?] 我的代碼如下： (defin