Recent content by joel76

'or' is achieved with a semicolon ';'. If I understand your question 'to have a failure' you can use \+ wich is the negation \+a. gives 'false'

You should say "a succeeds only if b, c and d (so e) succeed". Since b, c and e are facts, a succeeds. Yes, every letter in this example can be a goal.

Notice that b, c and e are called "facts

That's correct but you must use lowercase letters : a :- b, c, d. b. c. d :- e. e.

You must have facts, e.g. percentage of troubles when there is a cranky husband or a demanding wife. These facts may be converted in rules, so you have to search for "expert system".

Your question is not very clear ! Can you give an example of a query with the input and the expected result. What have you tried ?

I can't edit my posts so, I give you another way to count nodes in DFS without assert/retract : dfs_search_node(Tree,Node, N) :- dfs_search_node_(Tree,Node, 1, _, N). dfs_search_node_(tree(Node, _, _), Node, FN, _, FN) :- !. dfs_search_node_(tree(_, L, R), Node, CN, _TN, FN) :- CN1 is CN +...

It's easyer than bfs : bfs_search_node(Tree,Node, N) :- bfs_search_node_([Tree],Node, 1, N). bfs_search_node_([tree(Node, _, _) | _T], Node, FN, FN) :- !. bfs_search_node_([tree(_, L, R) | T], Node, CN, FN) :- CN1 is CN + 1, append(T, [L, R], T1), bfs_search_node_(T1, Node, CN1, FN).

Is is possible that sameas(S1, S2) and sameas(S1, S3) implies sameas(S2,S3) ?

This sample can be usefull. :- dynamic fact/1. example :- test(asserta), test(assertz). test(Pred) :- format('~nWith ~w~n~n', [Pred]), Call_1 =.. [Pred, fact(1)], Call_2 =.. [Pred, fact(2)], Call_3 =.. [Pred, fact(3)], maplist(call, [Call_1, Call_2, Call_3]), list...

That's not very clear ! What do you mean by member1 is also member2 ? Can you give an example with a list !

Thanks !

If I understand what you mean, for 6 it should 10 : 6 is not 1 : step 1 then I search in left tree 6 is not 2 : step 2 I search in left tree 6 is not 3 : step 3 I search in left tree tree empty : step 4 I search in right tree tree empty : step 5 ..... According to this scheme I propose : :-...

You can try search_node(tree(Node, _, _), Node, 0) :- !. search_node(tree(_, L, R), Node, N) :- ( search_node(L, Node, N1); search_node(R, Node, N1)), N is N1+1.

You can look at this page http://www.swi-prolog.org/git/pl.git/blob/HEAD:/boot/init.pl