diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

parallel_findfirst/3

Browse Source
This commit is contained in:
João Santos 2012-02-27 18:31:57 +00:00
parent 430147f310
commit 78fb13e651
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/yapor.yap
View File

@ -14,6 +14,7 @@
:- meta_predicate :- meta_predicate
parallel(0), parallel(0),
parallel_findall(?,0,?), parallel_findall(?,0,?),
parallel_findfirst(?,0,?),
parallel_once(0). parallel_once(0).
@ -150,6 +151,13 @@ parallel_findall(Template,Goal,Answers) :-
'$parallel_findall_recorded'(Refs,Answers). '$parallel_findall_recorded'(Refs,Answers).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% parallel_findfirst/3 %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
parallel_findfirst(Template,Goal,Answer) :-
parallel_findall(Template,(Goal,!),Answer).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% parallel_once/1 %% %% parallel_once/1 %%