racket

    1熱度

    2回答

    因此,我正在編寫一個小的Racket應用程序,該應用程序將解析(格式非常差的).txt文件並輸出可在Excel中使用的.csv。我想要做的第一件事是打開一個帶有一個按鈕的小窗口,該按鈕打開一個文件對話框,以便用戶可以選擇要轉換的文件(就像任何啓動打開的文件選擇對話框的程序一樣)。我在網上查了一下,找不到任何東西。這將是一個本地應用程序,所以我在POST服務器上找到的東西並不相關。你怎麼能在球拍上做

    0熱度

    1回答

    (define (make-checking beg-bal) (let* ((balance beg-bal) (tlist '())) (define (writer s x) (display s) (display x) (newline)) (define (deposit f) (set! bal

    0熱度

    3回答

    我正在學習Scheme,所以我正在做一個有兩個功能的程序,一個根據飛行人數和飛機上座位的數量計算有多少架飛機將飛行。直到那裏一切都好,問題是當我嘗試在另一箇中使用該功能時,我不知道該怎麼做。 第一功能: (define calculate-aeroplanes (lambda (passengers seats) (ceiling (/ passengers seats))))

    0熱度

    1回答

    我試圖從頭開始編寫終端解析器(用於解析器組合器)。我的方法是在輸入字符串上使用regexp-match-positions*,如果在第一個位置找到模式,那麼我們輸出拆分字符串。 這是我得到了什麼,至今: #lang racket/base (require racket/match) (define (make-terminal-parser pattern) (define (

    1熱度

    1回答

    所以我一直在考慮了以下定義: (define head car) (define (tail stream) (force (cdr stream))) (define (addL x y)(cons-stream (+ (head x) (head y))(addL (tail x) (tail y)))) (define fibs(cons-stream 1(cons-stream

    0熱度

    2回答

    我在想,下面的代碼是如何評價這個計劃過程3. (define (foo y) ((lambda (x) y) ((lambda (y)(* y y)) y))) (foo 3) 我一直在尋找了一段時間,似乎無法理解爲什麼評價不會導致可以有人提供詳細的一步一步的指導如何評估3?

    0熱度

    1回答

    我想下面的代碼合併到一個: (define (foundList x) (when (pair? x) ((hash-ref *function-table* (car x)) (cdr x)))) (define (endofstring x) (if (not (null?(cdr x))) (endofstring (cdr x))

    0熱度

    2回答

    我一直得到錯誤first: expects a non-empty list給出:(make-subject (make-person 22 'm 'MW17K) (list 220 301 189 272 311))當啓動我的程序,只是無法找出原因。 ;;equals 25 but my code keeps erroring. please help (person-age (subject

    -1熱度

    1回答

    我正在嘗試編寫一個帶兩個參數的forAll過程:系列的開始和結束值。結果閉包需要兩個參數:適用於系列中所有元素的操作以及初始值。 這就是我所擁有的,我似乎錯過了某些東西,或者我不理解背後的概念。 (define (forAll n m) (if (>= n m) '() (forAll (+ n 1) m)) (lambda (op start) (op start n m

    1熱度

    1回答

    我有一個不可變的散列表,其中包含一系列列表作爲值。我寫了一個程序,所以我可以將項目添加到列表中的一個,返回一個新的哈希: (define (update hash key item) (hash-set hash key (cons item (hash-ref hash key))))) 這似乎很好地工作,但感覺尷尬和冗長。有沒有一個內