lisp

1热度

2回答

因此，我正在编写一个小的Racket应用程序，该应用程序将解析（格式非常差的）.txt文件并输出可在Excel中使用的.csv。我想要做的第一件事是打开一个带有一个按钮的小窗口，该按钮打开一个文件对话框，以便用户可以选择要转换的文件（就像任何启动打开的文件选择对话框的程序一样）。我在网上查了一下，找不到任何东西。这将是一个本地应用程序，所以我在POST服务器上找到的东西并不相关。你怎么能在球拍上做

0热度

1回答

共LISP - 减法

我有这样的功能： (defun test (variable) (cond ((null variable) nil) ((< (- 12 (other-function variable) 3) 0) 1) (t (- 12 (other-function variable) 3)) ) ) 的想法是，如果12的与3的函数的值的减法运算的结果小于0

-1热度

1回答

给出二元关系R.在LISP中构造传递和反射闭包R *

给出二元关系R.构建传递和自反封闭 R *。在LISP中////怎么回事？

0热度

3回答

如何使用方案在另一个函数中调用函数？

我正在学习Scheme，所以我正在做一个有两个功能的程序，一个根据飞行人数和飞机上座位的数量计算有多少架飞机将飞行。直到那里一切都好，问题是当我尝试在另一个中使用该功能时，我不知道该怎么做。第一功能： (define calculate-aeroplanes (lambda (passengers seats) (ceiling (/ passengers seats))))

1热度

1回答

优化Lisp递归随机游走

该函数导致堆栈溢出超过大约2000步，有什么方法可以轻松优化它以使用更少的内存吗？ (defun randomwalk (steps state) (displaystate state) (if (equal steps 0) nil (if (solved? state) t (let ((nrmlstate (normalize state)))

0热度

2回答

sbcl（和clisp）：何时一个角色不是角色？（使用defconstant）

这个问题是关于sbcl - 或者我原本以为。问题：什么时候角色不是角色？请看下面的代码： (defconstant +asc-lf+ #\Newline) (defconstant +asc-space+ #\Space) (prin1 (type-of #\Newline )) (terpri) (prin1 (type-of #\Space )) (terpri) (prin1 (ty

0热度

1回答

计数许多正数如何在列表（NIL不是一个数字？）

我有一个列表：(setq listy '(4 -3 8 99 -40 61 12 -8 2 -20)) 我的功能lenPos应该找到所有正数的列表的长度（即6）。不过，我得到这个错误： *** - +: NIL is not a number 我检查，如果我的列表中的if语句做任何数量的检查之前空。所以我不明白错误来自哪里。 ;num of positive elems (defun len

0热度

1回答

多于一个参数用于删除谓词 - 如果

假设我想从状态列表中删除一个步骤（元素）。 (defparameter *states* '((:top nil nil) (:subjects nil nil))) ;predicate (defun equal-state? (step state) (equal (car step) state)) 如果我使用(delete-if #'equal-state? *state

1热度

1回答

如何在JavaScript中实现lambda/anonymous函数

所以我想用JavaScript实现LISP的一个子集。我被困在与lambda相关的两件事上。如何实现创建lambda的能力，并同时给它的参数，并立即评估？例如： ((lambda(x)(* x 2)) 3) 现在我硬编码这个功能在我的eval环这样的： else if (isArray(expr)){ if (expr[0][0] === 'lambda' || expr[0][

-1热度

1回答

字符串列表上的lisp成员函数

我正在使用LISP并想知道如何在字符串列表中访问成员。我已经尝试了成员函数，但一直得到NIL。感谢 (setq phrase-list '("What color is the sky?" "It is Blue.")) ;list of strings (write phrase-list) (terpri) (setq x(read-line)) ; I try to input