Logic Programming "prolog"

Fix both badcount2 and badcount3 in the above program to apply tail recursion

Note:

Requirements for tail recursion include the following:

1- The call is the very last sub goal of the clause.

2- There are no backtrack points earlier in the clause.

3- No untried alternates in an earlier predicate call.

? C:\VIP\BIN\WIN\32\Obj\goal$000.exe 1688 1689 1690 1691 1692 1693 1694 1695 1696 File Edit Project Options Window Help PDRAG 29:1 Insert Indent PREDICATES nondeterm badcountl (ulong) nondeterm badcount2 (ulong) nondeterm badcount 3 (ulong) nondeterm negative (ulong) CLAUSES badcountl (Number): - nl, write (Number), Next= Number+1, badcountl (Next), nl. badcount 2 (Number):- ni, write (Number), Next= Number+1, badcount2 (Next). badcount 2 (Number):- Number=0, write ("The Number is Non Negative"),nl. negative (X):- X =0, write ("The Number is Non Negative"),nl. negative (X):- X