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))))) 这似乎很好地工作,但感觉尴尬和冗长。有没有一个内