- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
是否有任何宏:
你能给出这样一个宏(和函数)的例子吗?
我的问题特指Lisp的宏和函数,但您可以更笼统地对待这个问题。我对递归宏特别感兴趣。
编辑:
我应该更具体一些。当我提出上述问题时,我牢记了我的 Lisp 项目的特定上下文,这是一种数学 symbolic programming计算器。
我想知道是否有充分的理由对任何数学运算使用宏,例如:
出于某种原因,我需要为这个项目使用一些递归宏。所以,如果我可以重新表述我的问题:
Can you give examples of smart use of [recursive] macros in a symbolic calculation?
最佳答案
Are there any macros that:
- Cannot be expressed as a equivalent function, or:
- Are difficult to express as a equivalent function, or:
- Are significantly worse in terms of performance than equivalent function?
答案永远不会这么简单。通常是“是和否”。在我看来,宏有两大优势:语法糖延迟求值。例如,像 with-open-file 这样的宏,它可以让你写:
(with-open-file (var "some-filename")
; operations with var
)
几乎只是
的语法糖(let ((x (open ...)))
(unwind-protect
(funcall (lambda (var)
; operations with var
)
x)
; cleanup forms
))
这有点像延迟求值和语法糖的结合,具体取决于您如何看待它。它是延迟评估,因为所有使用 var 的操作都被包装到一个 lambda 函数中。它也是语法糖,因为您显然可以将以上内容抽象为:
(defun call-with-open-file (open-args function)
(let ((x (apply 'open open-args)))
(unwind-protect (funcall function x)
; cleanup forms
)))
然后 with-open-file 只是语法糖:
(defmacro with-open-file ((var &rest open-args) &body body)
`(call-with-open-file (list ,@open-args)
(lambda (,var) ,@body)))
这是一个典型的案例,它展示了(主体形式的)延迟评估和功能接口(interface)周围的语法糖。您通常可以总是这样做。例如,使用 if,您可以编写函数式接口(interface):
(defun %if (condition then &optional (else (constantly nil)))
`(funcall (cond (condition then) (t else))))
那么if可以作为一个宏来实现:
(defmacro if (condition then &optional else)
`(%if condition (lambda () ,then) (lambda () ,else)))
if 和其他条件形式有点独特,但从这个意义上说,因为实现最终必须为您提供一些条件操作。不过,该运算符通常不是宏,而是一种特殊形式。
定义领域特定语言的其他特殊宏(如 loop)怎么样?你也可以这样做,但你几乎只会让函数接受宏版本的“主体”并在运行时解释它。例如,你可以这样做
(defun %loop (&rest loop-body)
; interpret body
)
但这显然会对性能造成很大影响。
因此,我认为没有宏不具有语义等价物,但这些将需要稍微不同的参数。其中一些语义等同的函数将难以表达,其中一些(例如,在传递匿名函数时)的性能肯定会差得多。
关于function - 是否有任何宏不能表示为函数?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33755137/
我有一个 if 语句,如下所示 if (not(fullpath.lower().endswith(".pdf")) or not (fullpath.lower().endswith(tup
然而,在 PHP 中,可以: only appears if $foo is true. only appears if $foo is false. 在 Javascript 中,能否在一个脚
XML有很多好处。它既是机器可读的,也是人类可读的,它具有标准化的格式,并且用途广泛。 它也有一些缺点。它是冗长的,不是传输大量数据的非常有效的方法。 XML最有用的方面之一是模式语言。使用模式,您可
由于长期使用 SQL2000,我并没有真正深入了解公用表表达式。 我给出的答案here (#4025380)和 here (#4018793)违背了潮流,因为他们没有使用 CTE。 我很欣赏它们对于递
我有一个应用程序: void deleteObj(id){ MyObj obj = getObjById(id); if (obj == null) { throw n
我的代码如下。可能我以类似的方式多次使用它,即简单地说,我正在以这种方式管理 session 和事务: List users= null; try{ sess
在开发J2EE Web应用程序时,我通常会按以下方式组织我的包结构 com.jameselsey.. 控制器-控制器/操作转到此处 服务-事务服务类,由控制器调用 域-应用程序使用的我的域类/对象 D
这更多是出于好奇而不是任何重要问题,但我只是想知道 memmove 中的以下片段文档: Copying takes place as if an intermediate buffer were us
路径压缩涉及将根指定为路径上每个节点的新父节点——这可能会降低根的等级,并可能降低路径上所有节点的等级。有办法解决这个问题吗?有必要处理这个吗?或者,也许可以将等级视为树高的上限而不是确切的高度? 谢
我有两个类,A 和 B。A 是 B 的父类,我有一个函数接收指向 A 类型类的指针,检查它是否也是 B 类型,如果是将调用另一个函数,该函数接受一个指向类型 B 的类的指针。当函数调用另一个函数时,我
有没有办法让 valgrind 使用多个处理器? 我正在使用 valgrind 的 callgrind 进行一些瓶颈分析,并注意到我的应用程序中的资源使用行为与在 valgrind/callgrind
假设我们要使用 ReaderT [(a,b)]超过 Maybe monad,然后我们想在列表中进行查找。 现在,一个简单且不常见的方法是: 第一种可能性 find a = ReaderT (looku
我的代码似乎有问题。我需要说的是: if ( $('html').attr('lang').val() == 'fr-FR' ) { // do this } else { // do
根据this文章(2018 年 4 月)AKS 在可用性集中运行时能够跨故障域智能放置 Pod,但尚不考虑更新域。很快就会使用更新域将 Pod 放入 AKS 中吗? 最佳答案 当您设置集群时,它已经自
course | section | type comart2 : bsit201 : lec comart2 :
我正在开发自己的 SDK,而这又依赖于某些第 3 方 SDK。例如 - OkHttp。 我应该将 OkHttp 添加到我的 build.gradle 中,还是让我的 SDK 用户包含它?在这种情况下,
随着 Rust 越来越充实,我对它的兴趣开始激起。我喜欢它支持代数数据类型,尤其是那些匹配的事实,但是对其他功能习语有什么想法吗? 例如标准库中是否有标准过滤器/映射/归约函数的集合,更重要的是,您能
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 这个问题似乎与 help center 中定义的范围内的编程无关。 . 关闭 9 年前。 Improve
我一直在研究 PHP 中的对象。我见过的所有示例甚至在它们自己的对象上都使用了对象构造函数。 PHP 会强制您这样做吗?如果是,为什么? 例如: firstname = $firstname;
...比关联数组? 关联数组会占用更多内存吗? $arr = array(1, 1, 1); $arr[10] = 1; $arr[] = 1; // <- index is 11; does the
我是一名优秀的程序员,十分优秀!