- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
考虑这个 javascript:
function addX(n)
{
return 3 + n;
}
alert(addX(6)); //alerts 9
eval('var newFunc = ' + addX.toString().replace("3", "5") + ';');
alert(newFunc(10)); //alert 15
请忽略它的用途和方法可疑、危险、难以在大型代码库中遵循等事实。它允许您根据用户的输入即时修改函数。我没有证明这一点,但我很容易就能做到。
我希望你能告诉我如何用 lisp 来做到这一点。看了很多教程,看了很多宏,asked a broader question , 尝试了很多东西,但最终都失败了。
我想知道如何在 lisp 中在运行时修改此函数以代替添加 5。或者用户可能输入的任何其他内容。
(define (addX n)
(+ 3 n))
我不是在寻找柯里化(Currying)!我知道我可以做到这一点:
(define addXCurry
(lambda (x)
(lambda (n)
(+ x n))))
(define add5 (addXCurry 5))
(add5 10)
但这是在创建一个函数工厂。
我正在使用一个简单的示例,因为我想完全理解足够简单的事情的困难方法。
编辑 谢谢大家的回答。我想我对宏的最大困扰(据我所知)是我还没有看到一个将修改与编写完全分开的宏。 javascript 示例很简单 - 但您可以根据用户输入进行更复杂的重写。
我见过的宏都是基于“编译时”(我想是程序员编写时)。就像在 C++ 中一样,您不能拥有动态模板参数——它必须在编译时已知。
(看起来)在 lisp 中,您不能像在 javascript 中那样在运行时从根本上改变过程,因为您丢失了源代码。您可以评估并重新定义它,但您不能遍历列表的元素(列表是函数定义),检查每个元素并决定是否更改它。异常(exception)情况似乎是 Rainer 的回答中的例子,这些例子是摇摇欲坠的。
最佳答案
困难的部分是 Common Lisp(和其他一些 Lisp)摆脱了源代码。特别是当涉及到编译器时。默认情况下,源代码已经消失,剩下的就是机器代码。如何以何种形式恢复 Lisp 源代码?
背后的原因:为什么要要求 CL 程序保留源代码?它可以完全编译为机器代码或 C 代码,并且在运行时没有编译器/EVAL。该程序可以在没有太多开发环境(没有编译器等)的情况下运行。也不应要求 Common Lisp 环境能够将代码“反编译”为某种重构源代码。
而且它通常很复杂。
(let ((n 0) (step 2)) (defun foo () (incf n step)))
以上内容的来源是什么?您将如何更改 STEP?该功能取决于词法绑定(bind)。
另一个并发症:
(defun foo (n) (+ n #.(random 1.0)))
如何恢复?每次 Lisp 读取源文本时,都会读取一个随机数。
另一个并发症:
(setf (symbol-function 'foo) (compute-function))
您可以使用一些任意计算的函数或预定义函数(如 SIN)来设置函数值。如果它们被编译为机器码、加载为机器码等,如何恢复它们?
如果 Common Lisp 实现保留源代码,FUNCTION-LAMBDA-EXPRESSION 会检索它。
有两种解决方法:
a) 告诉 Lisp 源代码或记住源代码。
提供来源。
(let* ((fs (copy-list '(lambda (n) (+ n 3))))
(fc (compile nil fs)))
(print (funcall fc 6))
(setf (third (third fs)) 5)
(setf fc (compile nil fs))
(funcall fc 6))
扩展示例:
写一个既能记住源代码又能定义函数的宏 DEFINE。
(defmacro define (&rest source)
`(progn (setf (get ',(first source) :source) (list* 'defun ',source))
(defun ,@source)))
上面将源代码放在 :SOURCE 下的符号属性列表中。
现在我们可以编写一个修改源代码并编译它的函数:
(defun modify (fname modifier)
(let ((source (get fname :source)))
(when source
(setf (get fname :source) (funcall modifier source))
(eval (get fname :source))
(compile fname))))
示例定义:
(define addx (n) (+ n 3))
重写示例:
(modify 'addx (lambda (source) (setf (third (fourth source)) 6) source))
b) 一些 Common Lisp 实现实现了一个名为 FUNCTION-LAMBDA-EXPRESSION 的函数(在 ANSI Common Lisp 中定义)。
这个函数返回三个值:作为 Lisp 数据的源、closure-p 和名称。它允许您更改源代码、编译它并使用 COMPILE 将名称设置为新函数。代码示例留作练习。
问题:在 Common Lisp 中,宏 DEFUN 定义了函数。宏在幕后所做的事情(IDE 的簿记、代码重写等)取决于实现。因此,FUNCTION-LAMBDA-EXPRESSION 返回的代码(如果实现返回源代码)对于每个实现可能看起来不同。
这是一个 LispWorks 示例:
CL-USER 12 > (function-lambda-expression #'addx)
(LAMBDA (N)
(DECLARE (SYSTEM::SOURCE-LEVEL #<EQ Hash Table{0} 217874D3>))
(DECLARE (LAMBDA-NAME ADDX))
(+ N 3))
NIL
ADDX
因此您可以操纵源表达式并更改它。
关于lisp - 你能告诉我如何用 lisp 重写函数吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1220149/
你们能帮帮我吗,这是我们的讲师给我们的教程问题,无论我们尝试了多少,我们实际上似乎都无法破解它。请帮忙 ; perform some type/error checking, ; then ca
在 Common Lisp 中编写、编译和测试一个函数,该函数接受一个列表并计算列表中正整数的总数。必须编译然后执行包含函数的 .lisp 文件。在编译该文件后开始传递它,列出要生成的结果的结果,从而
我是 Lisp 初学者,我很难理解为什么下面的代码会给我一个错误。 (dolist (elem '(mapcar mapcon)) (when (fboundp `
我听说 Lisp 可以让你重新定义语言本身,我也试图研究它,但没有任何地方明确的解释。有人有一个简单的例子吗? 最佳答案 Lisp 用户将 Lisp 称为 可编程编程语言 .用于符号计算 - 用符号计
Closed. This question is off-topic. It is not currently accepting answers. Learn more。 想改进这个问题吗Updat
这些是 cons 参数的不同组合的输出。我刚开始学习 lisp。有人可以帮我理解这些吗? Break 80 [81]> (CONS '(A) 'B) ((A) . B) Break 80 [81]>
这个问题不太可能帮助任何 future 的访问者;它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况有关,这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用,visit
我想问一下为什么这个功能不起作用... (defun nenum(ls) (cond ((null ls) nil) ((listp car(ls)) (nenum (rest ls)
如果我有一个原子,例如“a4”,我需要能够将 1 添加到“4”部分以使其成为 a5,但是因为它被认为是一个字符串,所以这是不可能的,所以如果我可以拆分 (a4 ) 到 ((a)(4)) 中,然后我可以
我有一个关于动态构建函数(或类似的东西)的问题。在 Java 中,我可以通过编程将一些 Source 写入字符串,编译该字符串并像函数一样执行它多次。 假设我有一些遗传算法来创建最佳代码以获取 n 个
我是 Common Lisp 的新手,正在学习教程,但无法全神贯注 (equal '(reverse (a b)) '(b a))) 返回零。 非常感谢您的协助。 M. 最佳答案 在 lisp 中引
我有一个使用列表表示的树。例如: (1 ((2 (3)) (3 (2)))) (2 ((1 (3)) (3 (1)))) (3 ((1 (2)) (2 (1)))))` 现在我需要在维护层次结构树的同
在此站点:http://www.gigamonkeys.com/book/practical-a-simple-database.html有如下列出的用户入口函数: (defun prompt-rea
我对 lisp 比较陌生,对在以下上下文中使用嵌套列表的最佳方法很好奇: 所以,我有以下功能: (defun get-p0 (points) (loop for (label x y) in
我正在为 CLOS 类编写一个函数,该函数反转所述类对象的列表元素。 我有一个返回反向列表的方法,但如何让它将对象的列表设置为该列表?我可以在存储列表的函数中有一个实例变量,然后将元素设置为那个吗?或
我知道,严格来说,没有编译语言或解释语言这回事。 但是,一般来说,LISP 是用来编写 Python、bash 脚本、批处理脚本之类的脚本的吗? 还是像 C++、JAVA 和 C# 这样的通用编程语言
在此站点 http://jatha.sourceforge.net/快速函数的示例是通过递归。是不是递归通常比 Lisp 中的迭代更快并且性能更好? 编辑:Lisp 是否比其他语言更优化递归? 最佳答
另一个新手(常见)LISP 问题: 基本上在大多数编程语言中,函数都有一种方法接收对变量的引用而不仅仅是值,即通过引用传递而不是通过值传递。比方说,为了简单起见,我想编写一个 LISP 函数来接收一个
这个问题在这里已经有了答案: How do I find the index of an element in a list in Racket? (3 个答案) 关闭 9 年前。 如果我有这样的列
我在为这个程序生成正确的输出时遇到了一些问题。我的输出几乎是正确的,但缺少一些步骤。我的代码如下: (defun kt (x y m n) ;set the
我是一名优秀的程序员,十分优秀!