- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我编写了一个程序,它定义了“完整”数据表、一组列标题(特征)、聚合函数和聚合表之间的关系。
示例查询:
?- data(D), fulltable_aggfunction_sets_aggtable(D,mean,[[a,b,c],[d,e,f]],AggTable),
print_data(D),print_data(AggTable).
[a,b,c,d,e,f,g,class]
[1,1,1,1,1,1,1,0]
[2,3,4,5,4,2,1,0]
[3,1,3,4,6,7,8,1]
[1,2,3,6,1,1,2,1]
[feature(1,mean,[a,b,c]),feature(2,mean,[d,e,f])]
[1,1]
[3,3.6666666666666665]
[2.3333333333333335,5.666666666666667]
[2,2.6666666666666665]
D = [[a, b, c, d, e, f, g, class], [1, 1, 1, 1, 1, 1, 1|...], [2, 3, 4, 5, 4, 2|...], [3, 1, 3, 4, 6|...], [1, 2, 3, 6|...]],
AggTable = [[feature(1, mean, [a, b, c]), feature(2, mean, [d, e, f])], [1, 1], [3, 3.6666666666666665], [2.3333333333333335, 5.666666666666667], [2, 2.6666666666666665]]
以下是我的代码:
fulltable_aggfunction_sets_aggtable(Full,Func,Sets,Aggtable):-
Full =[Features|Data],
flist_sets_indexs(Features,Sets,Indexs),
maplist(indexs_flist_sets(Indexs),Data,Datasplits),
maplist(aggfun_listoflists_values(Func),Datasplits,AggData),
list_indexes(Sets,SetIndex),
maplist(name_set_id_feature(Func),Sets,SetIndex,FeatureNames),
append([FeatureNames],AggData,Aggtable).
name_set_id_feature(Func,Set,Id,feature(Id,Func,Set)).
list_indexes(List,Indexes):-
findall(I,nth1(I,List,_),Indexes).
aggfunc_list_value(sum,List,Value):-
sumlist(List,Value).
aggfunc_list_value(mean,List,Value):-
sumlist(List,Sum),
length(List,L),
Value is Sum/L.
aggfun_listoflists_values(Fun,ListsofLists,Values):-
maplist(aggfunc_list_value(Fun),ListsofLists,Values).
my_nth0(List,Elem,I):- nth0(I,List,Elem).
indexs_flist_sets(I,F,S):-flist_sets_indexs(F,S,I).
flist_sets_indexs(Features,Sets,Indexs):-
maplist(flist_set_indexes(Features),Sets,Indexs).
flist_set_indexes(Features,Set,Indexs):-
maplist(my_nth0(Features),Set,Indexs).
%aux
print_data(Data_set):-
maplist(print_line,Data_set).
print_line(Data_line):-
format("~w ~n",[Data_line]).
data(Data):-
Data =[[a,b,c,d,e,f,g,class],
[1,1,1,1,1,1,1,0],
[2,3,4,5,4,2,1,0],
[3,1,3,4,6,7,8,1],
[1,2,3,6,1,1,2,1]].
在我的代码中,我有这两行只是重新排序参数,以便我可以将这些规则传递到映射列表中。
my_nth0(List,Elem,I):- nth0(I,List,Elem).
indexs_flist_sets(I,F,S):-flist_sets_indexs(F,S,I).
有更好的方法吗?在这种情况下如何使用 maplist 才能不必定义这些规则?
最佳答案
在 SWI-Prolog 中有库(yall)和库(lambda)。
例如使用库(yall)
flist_set_indexes(Features,Set,Indexs):-
maplist({Features}/[Elem,I]>>nth0(I,Features,Elem),Set,Indexs).
print_data(Data_set):-
maplist([Data_line]>>format("~w ~n",[Data_line]),Data_set).
在使用第二个
:- use_module(library(lambda)).
flist_set_indexes(Features,Set,Indexs):-
maplist(\Elem^I^nth0(I,Features,Elem),Set,Indexs).
%aux
print_data(Data_set):-
maplist(\Data_line^format("~w ~n",[Data_line]),Data_set).
图书馆具有相似的功能。但请注意,yall 需要“捕获”Features
。库(lambda)在
?- pack_install(lambda).
当库(yall)被自动加载时
关于prolog - 有没有比制定新规则来更改 maplist 的变量顺序更好的方法?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36582088/
在Mathematica中,有许多函数不仅返回最终结果或单个匹配项,还返回所有结果。这些函数称为*List。展示: FoldList NestList ReplaceList ComposeList
我编写了一个程序,它定义了“完整”数据表、一组列标题(特征)、聚合函数和聚合表之间的关系。 示例查询: ?- data(D), fulltable_aggfunction_sets_aggtable
有 list List填充数字,我想获得对列表 Pairs ,其中每一对在 Pairs形式为 -0 ,即List的每个数后面应该是 -0 . 我想出了以下解决方案,使用 maplist和一个 lamb
我有几个谓词使用 lambda 做同样的事情,波形符术语来自 func ,lambda 和 func,最后是既没有 lambda 也没有 func 的“纯 Prolog”: :- use_module
例如,我希望通过 maplist/3 实现以下伪代码: maplist( lambda X: Z/Y=X, to_lower(Z,LC), char_code(L,LC), return L/Y
这个问题已经有答案了: Create a map from a list of maps (2 个回答) 已关闭 5 年前。 我想转换 List>>到 Map>与 lambda 但我完全迷失了,到目前
我是一名优秀的程序员,十分优秀!