racket

    -1熱度

    1回答

    訪問內部結構的列表我有一個結構: (define-struct abc (item-list x y)) 我要訪問的項目列表是一個列表迭代的元素。我如何在球拍中實現這一點? 我想: (abc-item-list a) ,但不起作用。 注意:我正在使用中級學生語言。

    0熱度

    1回答

    我試圖創建一個可以遞歸操作的宏。它需要在一個(->)或兩個(<->)方向上的兩個節點之間創建鏈接。我相信這是...的問題,似乎無法使其正常工作。 創建的結構 (define-struct node (name edges) #:transparent) 希望的實施例的輸入和輸出 > (edges node1 <-> node2 -> node3) > node1 > (node 'node

    2熱度

    1回答

    我試圖感受一下Scheme中的繪圖庫,但是我已經遇到了問題。 (define defaultpos (make-posn 400 400)) (start 800 800) (draw-circle defaultpos 10 'green) 從理論上講,這應該會在中間打開一個綠色圓圈的新窗口。相反,我得到這個錯誤信息: draw-circle: expects a posn as fir

    0熱度

    1回答

    我想有,做遞歸以下 ;f(n) = n, if n<4 ;f(n) = f(n-1) + 2f(n-2) + 3f(n-3) + 4f(n-4) 這是我想出了一個功能,但它不包括在每一個乘法遞歸調用。我不知道一個如何落實與方案 (define (function n) (= counter 0) (if (< n 4) n (+ n (functi

    0熱度

    1回答

    最近,我正在學習SiC顆粒,但我遇到一個奇怪的問題: Error: remainder: contract violation expected: integer? given: '(3 4 5 6) argument position: 1st other arguments...: 2 這裏是我的代碼 (define (same-pari

    -1熱度

    1回答

    我可以根據空格分割輸入,但我需要將每個生成的子字符串保存爲向量的元素,以便我可以訪問它們中的每一個並檢查如果每個信息都是正確的。我有這樣的: (定義VEC(矢量)) (矢量追加(字符串分割輸入)VEC) (顯示VEC) ;(輸入爲我的變量的名稱,用戶在文本輸入 - 場%) 但它給了我一個錯誤,說: 矢量追加:違反合同 預期:矢量? 給出:「( 「fdsnmf」 「ifnjin」 「ifnuib」)

    -1熱度

    1回答

    好的元素列表數量最多,所以我定義3名列表: (define mylist '((pause 5 5 5)(note 3 4 5)(pause 3 4 4))) (define myseqlist '(sequential-music-element (note 5 5 5) (note 4 3 4) (note 5 3 4))) (define myparlist '(parallel-mus

    0熱度

    2回答

    我開始學習Scheme(R5RS)並立即遇到問題。我有這樣的代碼: (define make-source (lambda (seq) (define next list) (define peek list) (let ((seq seq) ;(endl (if (null? endl) #f endl)) ) (lambda (s

    0熱度

    1回答

    當前列表中刪除第一個值我正在使我的自定義對象作爲參數的函數,然後從該對象中的列表中獲取第一個參數,將其返回並從對象中刪除它。代碼是: (define (make-source sequence . xs) (let ((a (if (not (null? xs)) xs (list #f)))) (cond ((string? sequence)

    0熱度

    1回答

    我試圖在球拍中使用recurssion來減去數字列表。功能如下: (define (sub lst) (cond [(empty? lst) 0] [ else (- (first lst) (sub (rest lst)))])) 這似乎並不正確,因爲球拍從左到右執行減法。即,例如: (- 1 2 3 4 6)假定爲-14。但是當我以與通過遞歸方式給列表一樣的方式進行操作時,像