myaosato/fact.pl

Created February 12, 2022 04:21

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/myaosato/3d5147987e01d74b6a2af65bdaed6791.js"></script>
Save myaosato/3d5147987e01d74b6a2af65bdaed6791 to your computer and use it in GitHub Desktop.

Download ZIP

Factrial on Prolog

Raw

fact.pl

	fact(1, F) :- F is 1.
	fact(N, F) :-
	N > 1,
	M is N - 1,
	fact(M, T),
	F is N * T.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment