scheme

0热度

1回答

我虽然调用一个列表并检查它会是偶数还是奇数会以这种方式工作。它假设列表[2 6 4 5]并检查每个处于偶数位置的元素并打印t或f。 [2 #t 4 #f]。我知道我尝试在列表上做模，这可能会导致错误。有办法检查当前列表并检查它是偶数还是奇数。 modulo: contract violation expected: integer? given: '(2 3 4) argument pos

-1热度

2回答

计划程序来替代元素在对

我试图写一个程序：当一对与启动时，它会返回b;当一对以b开始时，它会返回c;当一对以c开头时，它会返回一个。 (define e '((a b) (b c) (c a))) (define (make-encoder e) (cond ((eq? 'a (car (assq 'a e))) (cadr (assq 'a e))) ((eq? 'b (car

0热度

1回答

如何摆脱计划中的额外列表级别？下面

我的函数必须接受，看起来像这样输入： (getlist '(a b '(a b) 1 2 '() '(1 2))) 函数必须然后输出原始列表中的所有表的列表。所以输出应该像 "((a b)()(1 2))" ，但我得到这个： "((quote (a b)) (quote()) (quote (1 2)))" 我得到正确的价值观，但他们都包裹着附引号额外的名单内。我该如何解决？谢谢 ;

0热度

1回答

如何以追加模式写入文件-scheme R5RS？

(call-with-output-file "b.txt" (lambda (output-port) (display "hello, world" output-port))) 如何以追加模式打开b.txt。所以，我的结果将被附加在文本文件中。我在下面找到了一些答案。但那不是我所期望的。 Append in scheme 我想用“呼叫与输出文件”的工作。因为我觉得这个工作正常。通过这

0热度

2回答

计划程序不评估嵌套列表吗？

我正在编写一个计划程序，最终对操作员列表进行评估。实施例：（评价“（1 2 +）） - > 3 我具有的功能为基本运营商合作（+， - ，*，/），但问题进来时，我有一个嵌套名单。实施例：（评价“（1（2 3 +）*）） - >（无）我缺少的条件？ (define (evaluate lis) (cond ((not (list? lis)) lis)

1热度

2回答

通过匿名函数循环常见Lisp vs. Scheme

我正在使用Little Schemer，我试图将所有答案转换为Common Lisp。在第8章中，讨论了匿名函数，并返回了匿名函数。例如： (define insertL-f (lambda (test?) (lambda (new old l) (cond ((null? l) (quote())) ((test? (car

0热度

2回答

在方案中编写除法函数

我正在尝试仅使用减法来创建除法函数。到目前为止，我已经足够处理积极的数字。不断欺骗我的是处理负数。我可以继续，只是抓住x和y的绝对值，它完美地工作，但我的答案永远不会是消极的。这里的任何人都必须以前做过类似的事情吗？ (define Divide (lambda (a b c) (if (> a 0) (Divide (- a b) b (+ c 1))

-1热度

1回答

在方案

从用户采取输入我想在计划中获得输入，之后，我想用这些数字来检查等我该怎么办？而且我也可以采取随机数，但我不能检查他们

0热度

2回答

从lambda表达式使用返回值？

我目前有一个函数，它包含一系列函数和一个单词列表，并将这些函数中的每一个应用到单词列表并编译一个列表。我想返回一个函数，检查一个单词是否在#t或#f的列表中，但是我不确定如何做到这一点，而不被允许使用set。以下是我迄今为止创建列表： (define list-checker (lambda (flist words) (cond ((null? flist) '(

0热度

1回答

在球拍中创建二叉搜索树？

尝试创建不可变的二叉搜索树。我从创建构造函数开始创建空列表，以及使用以下代码逐个向树添加元素的方法。 #lang racket (define (constructTree) '()) (define (addToTree Tree k v) (cond [(null? Tree) (cons Tree cons((cons k '()) v))] [else