Counting the solutions....

Hi All,
Bear with this newbie. I come from procedural programming and started to
learn prolog a week ago. Though, I really appreciate its amazing capacity, i
am still struggling to learn the basics.

My quaries are getting the solutions but, i have problem in counting the
solutions.

My knowledgebase has fact like following....

node('LmjF01.0010').
node('LmjF01.0020').
node('LmjF01.0030').
 prop('LmjF01.0010', is_coding, 'YES').
 prop('LmjF01.0010', is_coding, 'YES').
 prop('LmjF01.0010', is_coding, 'NO').
prop('LmjF01.0010', located_on, 'Lmjchr1').
prop('LmjF01.0010', located_on, 'Lmjchr1').
prop('LmjF01.0010', located_on, 'Lmjchr2').

function:
%count protein coding genes from GFF
count_pcg0(X) :-
Goal= prop(X, is_coding, 'YES'),
counter(Goal, N),
fail.

It counts and gives me the actual count in numbers.

But, when I add more conditions to it, It returns 1 or 0 depending on if it
fails or passes.
For example,
count_pcg(X) :-
node(X),
prop(X, is_coding, 'YES'),
G2 = prop(X, located_on, 'Lmjchr1'),
counter(G2, N),
fail.


%---------------------------------------
% Basic Functions
%---------------------------------------
counter(Goal, N) :-
   flag(counter, Outer, 0),
  (
     call(Goal),
     flag(counter, Inner, Inner+1),
     fail;
     flag(counter, Count, Outer),
     N = Count,
     write(N)
).






> _______________________________________________
> Users-prolog mailing list
> [email protected]
> http://lists.gnu.org/mailman/listinfo/users-prolog
>
>
Thanks a lot ,
I'll really appreciate your help

-- 
Gowthaman

Bioinformatics Systems Programmer.
SBRI, 307 West lake Ave N Suite 500
Seattle, WA. 98109-5219
Phone : LAB 206-256-7188 (direct).

_______________________________________________
Users-prolog mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/users-prolog