重新定义用于在 Scheme 中定义此函数的函数

问题描述

我觉得标题有点奇怪,但是,例如,有没有办法重新定义 Scheme 中的加法,以便 (+ arg1 arg2) 给出 arg1 + arg2 + 1?

我可以创建一个新函数@:

(define @ (lambda args (+ (apply + args) 1)))

使得 (@ 42 13) 给出 (42 + 13 + 1)。但是有没有办法做一些看起来像这样的事情:

(define + (lambda args (+ (apply + args) 1)))

但当然没有错误,因为在这里,它说 + 是未定义的?

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)