racket

0熱度

1回答

我無法找到如何製作C風格的聯盟。在documentation中給出的示例中： (define a-union-type (_union (_list-struct _int _int) (_list-struct _double _double))) (define a-union-val (cast (list 3.14 2.71) (_list-stru

0熱度

1回答

球拍RPN驗證器

我目前正試圖在球拍中創建一個逆波蘭表示法程序。我想要有6個數字和5個運算符。數字在列表中用-1表示，而運算符在列表中用1表示。在下面的代碼中，我可以得到沒有重複列表的所有排列。我在列表的前面添加兩個-1，最後添加一個-1，這是因爲對於有效的RPN，它需要在開始時有兩個數字，在末尾有一個運算符。 ;This our original list to create reverse polish no

0熱度

1回答

有沒有辦法顯示任何Dr.Retet Exception的信息消息？

我目前有以下幾行來嘗試和測試部分代碼。 (with-handlers ([exn:fail? (lambda (exn) 'Error)]) (car 17)) 我想知道是否有任何方法可以將'錯誤修改爲被捕獲的異常的函數，以幫助打印出失敗的原因？我也一直在使用check-not-exn，但是該函數向控制檯寫入了太多的信息。

-2熱度

1回答

不是程序;預期的程序，可以適用於以下參數：＃<void>在方案

我得到了它的打印子（A 3333）（A 4444），但我不能打印出 sub（A 3333）（A 4444）附加（R 0）（R 1） (define tree '("S" (("-"("A" 3333)("A" 4444))) ("W" (("+" ("R" 0) ("R" 1)))))) (define (OperandNode on) (display on)) (defin

-2熱度

1回答

球拍 - 如何使用地圖來實現過濾器，適用只有

追加在函數式編程，如何使用地圖，應用和只添加（不使用其他高階函數，遞歸，也不突變）實現過濾器？謝謝！

0熱度

1回答

如何把C的字符數組的字節直接

我有C-字符串裝飾array if_name定義： (define-cstruct _ifreq ([ifr_name (_array _byte IFNAMSIZE)] ;; ommited ... )) 我可以訪問（array->ref）單個元素，並通過遞歸從中創建列表。然後使用（list->bytes）來獲取lisp數據結構。我很好奇，如果有一種更簡單

2熱度

1回答

可執行文件大小是否可以優化？

我創建了以下在球拍碼（選擇球拍，而不是GRacket）的可執行文件： #lang racket (print "Hello World!") 它創造的3.6 MB與6.2 MB的可執行文件的TGZ。這對於這個最簡單的程序來說似乎非常大。由Chicken Scheme創建的具有相同代碼(print "Hello World!")的可執行文件的大小僅爲16984字節（16.6 kb）。我認爲我

0熱度

1回答

合同違反計劃邏輯

我雖然調用一個列表並檢查它會是偶數還是奇數會以這種方式工作。它假設列表[2 6 4 5]並檢查每個處於偶數位置的元素並打印t或f。 [2 #t 4 #f]。我知道我嘗試在列表上做模，這可能會導致錯誤。有辦法檢查當前列表並檢查它是偶數還是奇數。 modulo: contract violation expected: integer? given: '(2 3 4) argument pos

-1熱度

2回答

計劃程序來替代元素在對

我試圖寫一個程序：當一對與啓動時，它會返回b;當一對以b開始時，它會返回c;當一對以c開頭時，它會返回一個。 (define e '((a b) (b c) (c a))) (define (make-encoder e) (cond ((eq? 'a (car (assq 'a e))) (cadr (assq 'a e))) ((eq? 'b (car

0熱度

2回答

計劃程序不評估嵌套列表嗎？

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