racket

    4熱度

    2回答

    這就是我所能做到的,但只有當elt出現在列表的開始時纔有效 (define (delete-all xx elt) (cond ((null? xx) null) ((equal? elt (car xx)) (delete (cdr xx) elt))))

    3熱度

    2回答

    設計一個解釋器重寫該腳本的原始腳本是這樣的: #lang racket (for ([i (in-range 3)]) (for ([j (in-range 9)]) (display "X")) (display "\n")) (for ([i (in-range 6)]) (for ([j (in-range 3)]) (display

    5熱度

    2回答

    除了問題What's the explanation for Exercise 1.6 in SICP?。 因此,Dr.Retet(R5RS)在有限時間內用「if」評估sqrt-iter函數,清楚地顯示了正常的順序評估。但是,如果使用從運動1.5 (define (p) (p)) (define (test x y) (if (= x 0) 0 y)) (te

    0熱度

    2回答

    這是一個在Scheme中的遞歸函數翻轉,它接受任意長度的原子列表作爲其唯一參數,並返回該列表與相鄰元素翻轉。換句話說, 函數交替列表的元素(即給定列表[a1,a2,a3,a4,a5,a6 ...,an]作爲參數, 產生[a2,a1,a4,a3 ,A6,A5,...])。如果n是奇數,則在結果列表的末尾保留一個。不使用任何輔助功能。 這裏是我的樣品 > (flip '()) () > (fli

    2熱度

    1回答

    對於一般的Scheme和函數式語言,我是全新的。我正在嘗試創建一個二叉搜索樹。節點的格式是三個元素的列表,第一個是節點的值,第二個是左側子節點,第三個是右側子節點。我有一個「make」函數,它創建一個空樹:(()()())。我也有插入功能。下面是代碼: ;Inserts a number into the tree (define (insert t x) (cond ((null?

    2熱度

    2回答

    我一直在研究這段代碼在球拍上,使這個火箭上升取決於你在火箭電影中輸入的角度。我認爲,隨着火箭在動畫場景中向錯誤的方向發展,我的數學方面出現了一些問題。我似乎無法弄清楚究竟是什麼錯誤。似乎工作的唯一方向是20度。火箭圖像本身位於90度。任何人都可以幫我解決我工作過的地方形象公式嗎?我不知道什麼是錯的。 謝謝你的時間。 #lang racket (require 2htdp/image) (req

    4熱度

    1回答

    我一直在DrRacket中嘗試創建一個「前綴」函數(#lang racket)。它應該以兩個列表作爲輸入,並且如果pf爲空或者等於ls的開頭,則應該輸出#t。 我的問題是,我的代碼似乎沒有返回任何東西,當pf不是ls的前綴和ls不爲空。如果我將if語句中的#f替換爲其他內容(如'()),它將會正確返回,但如果我嘗試捕獲'()並根據它提供輸出,它會給出無意義的結果(如說'()不爲空,或者'()不等於

    5熱度

    1回答

    我正在嘗試復活在Scheme(PLT-Scheme,使用mzscheme解釋器(?)命令行工具)編寫的舊(1999或更早版本)項目。讓事情變得更糟,我不知道Scheme或者Lisp(實際上,我想學習,但那是另一回事)。 我有項目的源代碼在: github.com/akavel/sherman 現在,運行代碼時,撈出用一個錯誤信息象下面這樣: Sherman runtime version 0.5

    1熱度

    4回答

    我需要建立寫在方案中的程序來接收這樣的列表: (function '(2 3 4 3 2 3 1 1 1 1 2 1 2)) 必須給我作爲輸出: -> '((4 2) (3 3) (1 4) (5 1)) 此輸出是因爲有4位2,3位3,1位4和5位1.

    1熱度

    1回答

    在我參加的一門課程中,我們最近不得不學習編程語言Scheme。我獲得了所有的基礎知識,這幾乎是我們走過的所有事情。我只是無法學習以Scheme的不同方式思考。 我被賦予了任務,甚至不知道如何開始。我在這裏坐了幾個小時試圖找出如何開始,但我有點難住。爲了記錄,我不是要求代碼來解決這個問題,而是更多的想法讓我走上正軌。 不管怎麼說,這是分配的要點... 我們給出十個數字,代表了選民的選票名單。這些數字