scheme

0热度

1回答

狡诈的化妆C-结构的不明原因的行为接受以下代码： (define ptr (make-c-struct '(int int) '(300 43))) ： (use-modules (system foreign)) (define ptr (make-c-struct (list int int) '(300 43))) 然而，它抛出一个错误时，第二行被替换有人能够推断出问题所在？ $

0热度

1回答

我如何获得列表方案中每个项目的第一个字符？

我想要它提取列表中的所有第一个单词。实施例：（第一“世界你好ASD FDAS QWERTY）返回： ħW A F q上。

0热度

1回答

如何在Mac上定制edwin编辑器？

我按照这个教程：https://groups.csail.mit.edu/mac/users/gjs/6.945/dont-panic/（3.4.2节）在我的mac上使用以下文件获取edwin编辑器设置：http://web.mit.edu/6.945/dont-panic/.edwin用于自定义编辑器。但是，我无法继续使用他们提供的说明。我在我的Mac上找不到.edwin文件，而wget命令不

0热度

2回答

为什么DrRacket在if if为真后输出我的参数

(define (fakultaet n) (if (= n 0) 1 (* n (fakultaet (- n 1))))) 为什么(fakultaet 3)给我解决方案（6）而不告诉它打印它？它是如何在DrRacket中工作的？

0热度

1回答

Chicken计划中的拓扑排序错误？

#;2> (topological-sort '((i am) (not trying) (confuse the) (am trying) (trying to) (am not) (trying the) (to confuse) (the issue)) eqv?) (not i am trying

0热度

1回答

如何追加计划中的列表中的元素

我已经做了一个程序，返回一个斐波那契数列使用尾递归，我想将其结果添加到列表中。我也做了以下内容： (define listAux '()) (define (fibTail n1 n2 c) (if (= c 0) (appendList -1) (begin (appendList n2) (fibT (+ n1 n2) n1 (- c

1热度

5回答

简化条件表达式

是否可以重写下面的表达式，以便(foo)只出现一次？现在它并不可怕，但是这些重复的呼叫(foo)使代码难以阅读。 (cond (a (x) (foo)) (b (y) (foo)) (else (z) (bar)))

0热度

3回答

关于“set！”和“让”表情

-2热度

4回答

我怎么可以追加到一个列表，而无需创建一个点对

我如何追加(1 2 3)到()末，使((1 2 3)) 我如何追加(4 5 6)至是末，使((1 2 3) (4 5 6)) 我如何追加"|"到即即将制作的末尾((1 2 3) (4 5 6) "|") 没有虚线对。我正在与鸡计划，但我会采取任何方案在这一点上的答案。请注意，这些列表中的任何一个都可能是嵌套列表，谁知道什么......我只是写了一个简单的例子。注意：@sjamaan显示a使用a

1热度

1回答

Lisp中的过程

如果我要在Lisp中定义以下过程会发生什么情况：（define（p）（p））它会返回什么值？我是而不是编程新手，但我正在阅读这本书更深入，并使用Lisp的例子，这让我感到困惑。