- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
我有basic scheme like lisp in JavaScript并且对反引号和引号宏有问题,如果它们是数组的第一个元素,它们就会评估符号,例如
> `(foo 10)
报错找不到foo
它适用于这样的代码
> (define x '(1 2 3))
> (print `(1 2 ,@x 4 5))
我的评估函数如下所示:
function evaluate(code, env) {
env = env || global_env;
var value;
if (typeof code === 'undefined') {
return;
}
var first = code.car;
var rest = code.cdr;
if (first instanceof Pair) {
value = evaluate(first, env);
}
if (typeof first === 'function') {
value = first;
}
if (first instanceof Symbol) {
value = env.get(first);
if (value instanceof Macro) {
return evaluate(value.invoke(rest, env), env);
} else if (typeof value !== 'function') {
throw new Error('Unknown function `' + first.name + '\'');
}
}
if (typeof value === 'function') {
var args = [];
var node = rest;
while (true) {
if (node instanceof Pair) {
args.push(evaluate(node.car, env));
node = node.cdr;
} else {
break;
}
}
var promises = args.filter((arg) => arg instanceof Promise);
if (promises.length) {
return Promise.all(args).then((args) => {
return value.apply(env, args);
});
}
return value.apply(env, args);
} else if (code instanceof Symbol) {
value = env.get(code);
if (value === 'undefined') {
throw new Error('Unbound variable `' + code.name + '\'');
}
return value;
} else {
return code;
}
}
我的宏 i 只是一个返回 Pair 实例的函数,它与要评估的输入和代码参数相同,env 是一个具有返回函数或变量的函数 get 的环境实例。
quasiquote 的宏看起来像这样:
quasiquote: new Macro(function(arg) {
var env = this;
function recur(pair) {
if (pair instanceof Pair) {
var eval_pair;
if (Symbol.is(pair.car.car, 'unquote-splicing')) {
eval_pair = evaluate(pair.car.cdr.car, env);
if (!eval_pair instanceof Pair) {
throw new Error('Value of unquote-splicing need to be pair')
}
if (pair.cdr instanceof Pair) {
if (eval_pair instanceof Pair) {
eval_pair.cdr.append(recur(pair.cdr));
} else {
eval_pair = new Pair(eval_pair, recur(pair.cdr));
}
}
return eval_pair;
}
if (Symbol.is(pair.car, 'unquote-splicing')) {
eval_pair = evaluate(pair.cdr.car, env);
if (!eval_pair instanceof Pair) {
throw new Error('Value of unquote-splicing need to be pair')
}
return eval_pair;
}
if (Symbol.is(pair.car, 'unquote')) {
return evaluate(pair.cdr.car, env);
}
var car = pair.car;
if (car instanceof Pair) {
car = recur(car);
}
var cdr = pair.cdr;
if (cdr instanceof Pair) {
cdr = recur(cdr);
}
return new Pair(car, cdr);
}
return pair;
}
return recur(arg.car);
}),
是否应该将引用硬编码到评估函数中,而不应该处理参数并按原样返回它们?然后反引号会为每个符号返回(引号)?
最佳答案
在评论中@WillNess 的帮助下,我能够解决问题,我需要将特殊情况添加到解析器中。
if (first instanceof Symbol) {
value = env.get(first);
if (value instanceof Macro) {
value = value.invoke(rest, env);
if (value instanceof Constant) {
return value.value;
}
return evaluate(value, env);
}
...
和 quasiquote 宏用常量包装输出。这只是:
function Constant(value) {
this.value = value;
}
关于javascript - JavaScript 中的 Lisp 宏引用实现,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48932481/
背景: 我最近一直在使用 JPA,我为相当大的关系数据库项目生成持久层的轻松程度给我留下了深刻的印象。 我们公司使用大量非 SQL 数据库,特别是面向列的数据库。我对可能对这些数据库使用 JPA 有一
我已经在我的 maven pom 中添加了这些构建配置,因为我希望将 Apache Solr 依赖项与 Jar 捆绑在一起。否则我得到了 SolarServerException: ClassNotF
interface ITurtle { void Fight(); void EatPizza(); } interface ILeonardo : ITurtle {
我希望可用于 Java 的对象/关系映射 (ORM) 工具之一能够满足这些要求: 使用 JPA 或 native SQL 查询获取大量行并将其作为实体对象返回。 允许在行(实体)中进行迭代,并在对当前
好像没有,因为我有实现From for 的代码, 我可以转换 A到 B与 .into() , 但同样的事情不适用于 Vec .into()一个Vec . 要么我搞砸了阻止实现派生的事情,要么这不应该发
在 C# 中,如果 A 实现 IX 并且 B 继承自 A ,是否必然遵循 B 实现 IX?如果是,是因为 LSP 吗?之间有什么区别吗: 1. Interface IX; Class A : IX;
就目前而言,这个问题不适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持,但这个问题可能会引发辩论、争论、投票或扩展讨论。如果您觉得这个问题可以改进并可能重新打开,visit the
我正在阅读标准haskell库的(^)的实现代码: (^) :: (Num a, Integral b) => a -> b -> a x0 ^ y0 | y0 a -> b ->a expo x0
我将把国际象棋游戏表示为 C++ 结构。我认为,最好的选择是树结构(因为在每个深度我们都有几个可能的移动)。 这是一个好的方法吗? struct TreeElement{ SomeMoveType
我正在为用户名数据库实现字符串匹配算法。我的方法采用现有的用户名数据库和用户想要的新用户名,然后检查用户名是否已被占用。如果采用该方法,则该方法应该返回带有数据库中未采用的数字的用户名。 例子: “贾
我正在尝试实现 Breadth-first search algorithm , 为了找到两个顶点之间的最短距离。我开发了一个 Queue 对象来保存和检索对象,并且我有一个二维数组来保存两个给定顶点
我目前正在 ika 中开发我的 Python 游戏,它使用 python 2.5 我决定为 AI 使用 A* 寻路。然而,我发现它对我的需要来说太慢了(3-4 个敌人可能会落后于游戏,但我想供应 4-
我正在寻找 Kademlia 的开源实现C/C++ 中的分布式哈希表。它必须是轻量级和跨平台的(win/linux/mac)。 它必须能够将信息发布到 DHT 并检索它。 最佳答案 OpenDHT是
我在一本书中读到这一行:-“当我们要求 C++ 实现运行程序时,它会通过调用此函数来实现。” 而且我想知道“C++ 实现”是什么意思或具体是什么。帮忙!? 最佳答案 “C++ 实现”是指编译器加上链接
我正在尝试使用分支定界的 C++ 实现这个背包问题。此网站上有一个 Java 版本:Implementing branch and bound for knapsack 我试图让我的 C++ 版本打印
在很多情况下,我需要在 C# 中访问合适的哈希算法,从重写 GetHashCode 到对数据执行快速比较/查找。 我发现 FNV 哈希是一种非常简单/好/快速的哈希算法。但是,我从未见过 C# 实现的
目录 LRU缓存替换策略 核心思想 不适用场景 算法基本实现 算法优化
1. 绪论 在前面文章中提到 空间直角坐标系相互转换 ,测绘坐标转换时,一般涉及到的情况是:两个直角坐标系的小角度转换。这个就是我们经常在测绘数据处理中,WGS-84坐标系、54北京坐标系
在软件开发过程中,有时候我们需要定时地检查数据库中的数据,并在发现新增数据时触发一个动作。为了实现这个需求,我们在 .Net 7 下进行一次简单的演示. PeriodicTimer .
二分查找 二分查找算法,说白了就是在有序的数组里面给予一个存在数组里面的值key,然后将其先和数组中间的比较,如果key大于中间值,进行下一次mid后面的比较,直到找到相等的,就可以得到它的位置。
我是一名优秀的程序员,十分优秀!