scheme

0热度

1回答

我试图创建函数，检查列表是否正确或不正确。在互联网上找不到任何解决方案。这可能吗？例如我们的代码中使用list?： (define (proper-list? list) (cond ((list? list) '(it's a proper list)) (else '(it's an improper list)))) (proper-list? '(a b

1热度

2回答

使用两个字符串开始和结束覆盖一个字符串的函数

我使用Racket的奇怪语言在开始和结尾处用两个字符串覆盖一个字符串。 (define overwrite (s beg end)... 例如，(overwrite "catapult" "dog" "blah")应该输出"dogablah" (overwrite "greenbeans" "munk" "grub")应该输出"munknbgrub"。有时覆盖可以完全超过中心词： (over

0热度

1回答

计划 - 打印在此代码中未定义

我遇到的问题是我已经给出此代码来测试并用于分析。除了当我运行它，打印定义正在抱怨。它一直说“打印：未定义” 任何人都可以提供适合此问题的打印定义吗？ (define (integral integrand initial-value dt) (define int (cons-stream initial-value (add-streams (scale-st

0热度

1回答

在球拍中创建列表

我是球拍编程的新手，我正在处理一个给出数字列表的问题，我必须列出不同数字组合的列表。喜欢的东西： (combine (list 3 1 2)) => (list (list 31 32 33) (list 21 22 3) (list 11 12 13)) 如何在球拍实现这一目标？谢谢

1热度

2回答

在球拍中实现for循环

我一直在尝试使用for循环在递归函数内部实现for循环。不允许在球拍中使用已经实施的“for”。有没有办法实施这种情况？注意：我正在使用中级学生语言。

0热度

1回答

如何在方案

我想有这样的列表替换嵌套列表元素... '((0 1 2) (3 4 5) (6 7 8) (0 3 6) (1 4 7) (2 5 8) (0 4 8) (2 4 6)) 并更换一定数量的所有事件。例如运行时 (replace 4 "x" '((0 1 2) (3 4 5) (6 7 8) (0 3 6) (1 4 7) (2 5 8) (0 4 8) (2 4 6))) 所需的输出是 '((

-1热度

1回答

球拍

访问内部结构的列表我有一个结构： (define-struct abc (item-list x y)) 我要访问的项目列表是一个列表迭代的元素。我如何在球拍中实现这一点？我想： (abc-item-list a) ，但不起作用。注意：我正在使用中级学生语言。

0热度

1回答

递归宏

我试图创建一个可以递归操作的宏。它需要在一个（->）或两个（<->）方向上的两个节点之间创建链接。我相信这是...的问题，似乎无法使其正常工作。创建的结构 (define-struct node (name edges) #:transparent) 希望的实施例的输入和输出 > (edges node1 <-> node2 -> node3) > node1 > (node 'node

0热度

1回答

使用递归可能在元素列表中的位置？

任何人都可以告诉如何在列表中的不同位置插入一个元素，并使用only recursion作为列表返回这些可能的组合的列表？例如，列表是(2 3)，要插入的元素是1。输出： list( list (1 2 3) list (2 1 3) list (2 3 1) )

0热度

1回答

如何将矢量添加到计划中的哈希表中？

这里是我尝试创建一个哈希表，并基于列表添加一个向量。 (define *function-table* (make-hash)) (define (function-get key)(hash-ref *function-table* key)) (define (function-put! key value)(hash-set! *function-table* key value))