Practical 15 Write a program to check whether the given number is Lucky or not.

predicates

            prime(integer,integer)

            prime1(integer,integer)

            lucky(integer,integer)

            go

clauses

            go:-

            write("Enter The Number : "),

            readint(B),

            prime(B,2).

           

            prime(B,A):-

            A<B,

            B mod A=0,

            write("The Given Number Is Not Lucky.. ").

            prime(B,A):-

            A<B,

            A1=A+1,

            prime(B,A1).

            prime(B,_):-

            lucky(B,0).

           

            lucky(B,C):-

            B>0,

            N1=B mod 10,

            N2=(B-N1)/10,

            Ans=N1+C,

            lucky(N2,Ans).

           

            lucky(_,C):-    

            prime1(C,2).

            prime1(C,C1):-

            C1<C,

            C mod C1=0,

            write("The Given Number Is Not Lucky.. ").

            prime1(C,C1):-

            C1<C,

            C2=C1+1,

            prime1(C,C2).

            prime1(_,_):-

            write("The Given Number Is Lucky.. ").