racket

1熱度

1回答

listdiff是一對車，其車輛是L，其CDR是eq？到L或者（cdr L）或者（cdr（cdr L）））等。listdiff的cdr不一定是列表;它可能是任何對象。 listdiff D表示在（cdr D）之前的（car D）的前綴。例如，假設ils是不正確的列表（a i o u。y）。然後（cons ils ils）返回一個空的listdiff，（cons ils（cdr（cdr ils）））

0熱度

1回答

將列表分解成3個組和插入符號

我試圖創建一個函數，它將採用整數參數並返回這些整數與他們在拼出數字中的位置。例如。（編號2135567667）「（2十億1.35億567000 667）我想我會的整數分成右3的組向左與商和餘數。而用句子「（上千萬元十億萬億萬億）要輸出句子中突然插入相應的符號。但是存在這樣的情況整個基團將是零，如：（編號1000000）「（100萬）或（1000000001） 10億1 有沒有更好

-1熱度

2回答

契約違背預期：數-Scheme

我是新來的球拍和方案，我試圖在一起映射列表內搭列表中的每個組合的加funtion的組合，並添加喜歡如下： ;The returned combinations ((1 3) (2 3) (1 4) (2 4) (3 4) (1 5) (2 5) (3 5) (4 5) (1 6) (2 6) (3 6) (4 6) (5 6) (1 2) (2 2) (3 2) (4 2) (5 2) (6 2

0熱度

1回答

反轉撰寫功能中的功能用法

compose功能首先應用最後一個功能，即它以相反的順序應用發送的功能。例如： ((compose sqrt add1) 8) 上面會ADD1到8，然後找到SQRT 9. 欲因此創建該第二個第一施加第一發送功能，並且然後，一個mycompose功能第三等，在上面的例子中，首先應用sqrt，然後add1。我可以管理以下： (define (mycompose L arg) (let l

0熱度

2回答

這些過程如何能夠訪問在其中調用的另一個過程的輸入值？

因此，p-cons程序將x和y作爲輸入並返回一個匿名程序，它將z作爲輸入（並記住x和y？）我在努力理解的是當我在REPL中運行該程序時： (p-car (p-cons 1 2)) 它返回1和2與p-cdr，這是他們打算做什麼。但是我不明白他們如何能夠訪問p-cons過程的值？有人可以解釋這是如何工作的，而我可能沒有完全掌握？這裏是程序： (define (p-cons x y)

1熱度

2回答

dynamic-require模塊相對於Racket中的當前模塊路徑（或如何在Racket中找到當前模塊路徑）

如果我想在運行時選擇性地需要模塊，我可以使用[dynamic-require'1。如果我想要求已安裝包這個偉大的工程，例如： (dynamic-require 'racket/match 'match) 這將（提供我已經racket/match安裝），需要racket/match和評估的match該庫結合。但是，當我想要一個本地的，未安裝的模塊時，我遇到了麻煩。比方說，我有一些模塊調用eat

0熱度

3回答

Scheme：返回一個正值列表

所以我的輸入是一些列表l，並且該函數的目標是獲取所有肯定的結果並用這些正值創建一個新列表。這是我目前有： (define (positives l) (define (poscheck l) (cond ((negative? (car l)) '()) ((null? l) '()) (else (poscheck (cdr l))))) (li

0熱度

1回答

將數字轉換爲英文字母列表

我有以下功能將數字輸入轉換爲這些數字的部分翻譯字輸出。使用產品和商，它將數字的單詞表示分成幾組，然後將數字分組。例如： (number-name 87969087) -> '(87 million 969 thousand 87) (number-name 1000000) -> '(1 million) 我試着通過完全翻譯那些低於1000以及數字來完成我的問題。我試圖實現一個小於100

2熱度

0回答

racket：圖片字節（像素）

如何將pict轉換爲其中像素的字節串？（我的意思是，像素的字節串，這將是在你從渲染PICT得到位圖）此功能： #lang racket/base (require pict racket/class) (define (pict->pixels p) (define b (pict->bitmap p))

0熱度

1回答

運行命令

我具有以下爲一個簡單的類（堆棧）代碼： #lang racket (define stackClass% (class object% (super-new) (init-field (mystack '(A B C))) (define/public (push n) (set! mystack (cons n mystack)))