Racket是Lisp / Scheme系列中可扩展的多范式编程语言。
我正在尝试为使用球拍/图形用户界面制作的计算器编写某种类似于有限状态机的东西,因此我决定使用大小写和匹配相结合的方式来实现它。对于特定状态,...
让NODE是一个在其关闭时带有STORE的函数。图的所有叶子的STORE均为单个值(常量或变量),所有内部节点的STORE均为列表...
我目前正在学习Scheme中的递归。我找到了这个递归定义,但是我不明白它在试图做什么。如果有人可以向我解释,我将不胜感激。这是...
[我已经在球拍中实现了以下选择排序:#lang球拍(定义(选择排序lst)(cond [(空?lst)'()] [其他(首先定义(应用最小lst)))(首先(...
我根据以下合同作出判断:(定义形式为DynamicLam#:mode(向下IIOO)#:contract(向下ΓeΓe)[-------------- -“ Lambda”(向下Γ_0z_0Γ_0z_0)] ;; ...
函数应执行的示例:(列表3 4 6 9 7)←→3x ^ 4 + 4x ^ 3 + 6x ^ 2 + 9x + 7到目前为止,我所拥有的:(定义(poly-eval x numlist)( compute-poly-tail x numlist 0 0))(定义(compute-poly-tail ...
我需要做一个球拍功能,以这种方式在球拍中将2个列表相乘:例如:l1 =(1 2 3)l2 =(4 5 6)该函数的结果是189 =(1 + 2)(2 +5)(3 + 6)我不知道从哪里开始,所以请帮助我,我...
函数应执行的示例:(列表3 4 6 9 7)←→3x ^ 4 + 4x ^ 3 + 6x ^ 2 + 9x + 7到目前为止,我所拥有的:(定义(poly-eval x numlist)( compute-poly-tail x numlist 0 0))(定义(compute-poly-tail ...
(定义(list-expand L)(如果(空?L)为空(追加(helper-method(car L)null)(list-expand(cdr L))))))(define(helper-method n lst2 )(如果(= n 1)'(1)(追加lst2'(n)(...
我有以下代码用于教堂数字的继承者和前身:考虑以下代码:(定义零(lambda()'()));将教堂数字零初始化为nil(定义(...
我具有以下功能“ change”,该功能需要支付一定数量的钱,用于支付的账单/硬币的大小,并返回包含“硬币”数量的 列表($ 50,$ 20 $ 10 $ 5 $ 2和$ 1)...
此Common Lisp宏和测试函数(defmacro test(body)`(let,(mapcar#'(lambda(s)`(,s,(char-code(char-downcase(char(symbol-name s))0 )))))'(ab)),body)...
我正在尝试链接到第三方(相对于核心)库(尤其是数据/集合)提供的Scribble文档,但是我无法使其正常工作。使用这些导入:@ ...
我正在尝试使用Racket的#plai语言定义一棵树,尽管在通过“添加节点”功能创建树时有些挣扎。我正在使用的定义类型如下:(...
我将如何创建近似cos函数。到目前为止我所拥有的。 (定义k 0)(定义(approx-cos xn)(cond [(> 0 n)0] [其他(*(/(expt -1 k)(阶乘(* 2 k))))(expt x(* 2 ...
我将如何创建近似cos函数。到目前为止我所拥有的。 (定义k 0)(定义(approx-cos xn)(cond [(> 0 n)0] [其他(*(/(expt -1 k)(阶乘(* 2 k))))(expt x(* 2 ...
例如:•(总和为空)⇒0•(总和(列表1 2 3))⇒6•(总和(列表1(列表2)3)(列表4 5))⇒15我到目前为止所拥有的。它计算列表中数字的总和。该测试通过了...
即我得到了这个(所有可能的组合都可以更改11):(列表1 1 1 1 1 1 1 5 5 5 5 1 1 1 10 10 10 1 1 25 25 25 25 25 25)我的代码应返回:(( 7. .1)(4. 5)(3. 1)(3. 10)(2 ...
用Java之类的语言在Racket中编写一个类似于“ while循环”的过程。 while循环需要两段代码来运行:一个条件和一个主体。它运行身体,然后尝试条件...