1
如何定义返回最大值闭包的函数?返回最大值闭包的函数
我具体的例子: 我有以下形式的列表:
myList : [a = 1, c = 33, d = c+7];
我想exctract基础上等号之前的部分元素。
这里是我的尝试:
find_a (e) := first(e) = a;
temp1 : sublist(myList ,'find_a);
map('second, temp1);
//output is "1"
这个工作,我打算。
由于真正的名单是更长的时间,我不想复制粘贴代码, 我现在想用这样的:
SearchElement(ElementName) := block(
[res],
res : lambda([x],first(x) = ElementName),
return (res)
);
GetByKey(list_,key_) := block(
[res , finder:SearchElement(key_)],
res : map('second, sublist(list_,'finder),
return (res)
);
GetByKey(myList, a);
// should return "1"
但已经是第一个部分不工作:
SearchElement(a);
// output:
lambda([x],first(x)=ElementName)
// expected output:
lambda([x],first(x)=a)
它是如何与Lisp的? – Ankur
maxima在内部使用lisp – Onur