Multiply Program in Prolog Gain Infiniti

Multiply Program in Prolog


mul(_,0,0):-!.
mul(X,Y,N):-Y1 is Y-1,mul(X,Y1,N1),N is N1+X,!.

 
 Output
 mul(3,4,P).
P=12
      

0 comments:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 

Design By Manish and Ranjan