scheme

    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热度

    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回答

    我想我有一般的想法在这里概念写在方案的实施让利,但语法错误obivously (define-syntax mylet (syntax-rules () ((mylet definitions evaluation) ((lambda (map car definitions) evaluations) (map cdar definitions)))))

    -1热度

    1回答

    我正在尝试编写一个带两个参数的forAll过程:系列的开始和结束值。结果闭包需要两个参数:适用于系列中所有元素的操作以及初始值。 这就是我所拥有的,我似乎错过了某些东西,或者我不理解背后的概念。 (define (forAll n m) (if (>= n m) '() (forAll (+ n 1) m)) (lambda (op start) (op start n m

    0热度

    2回答

    我方案以下数组: ((64 28 52 24) (68 29 62 29) (20 72 48 60) (45 102 75 51) (36 84 72 64) (80 9 63 60) (20 56 72 24) (57 53 88 63)) 欲形成通过累加“组合” Ñ行的2D阵列在一行中。例如,假设n = 2前两行我们将合并成一行((132 57 114 53) ...)?

    0热度

    1回答

    我正在尝试使用Scheme编程点距离公式。除非我遇到错误,否则我非常接近。 确切的错误是: Traceback (most recent call last): File "In [54]", line 5, col 11, in 'application' File "In [54]", line 5, col 11 RunTimeError: attempt to apply no

    1热度

    1回答

    我有一个不可变的散列表,其中包含一系列列表作为值。我写了一个程序,所以我可以将项目添加到列表中的一个,返回一个新的哈希: (define (update hash key item) (hash-set hash key (cons item (hash-ref hash key))))) 这似乎很好地工作,但感觉尴尬和冗长。有没有一个内