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

MLN generative learning

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-07-29 17:56:32 -05:00
parent bfb4cef8f9
commit 24de22eeb5
3 changed files with 331 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
packages/CLPBN/pfl.yap
View File

@@ -184,7 +184,7 @@ new_skolem(Sk, D) :-
functor(Sk, N, A),
functor(NSk, N, A),
% [f,t] is special for evidence
( D = [f,t] -> assert((evidence(NSk, 1) :- call(user:NSk))) ; true ),
( D = [f,t] -> assert((evidence(NSk, 1) :- user:NSk)) ; true ),
interface_predicate(NSk),
assert(skolem(NSk, D)).