diff --git a/e1.pl b/e1.pl new file mode 100644 index 0000000..862396f --- /dev/null +++ b/e1.pl @@ -0,0 +1,7 @@ +range(End, End, []) . +range(Start, End, [Start| Acc]) :- Next is Start + 1, range(Next, End, Acc). + +divisors_3_5([], []). +divisors_3_5([X|Xs], [X|Ys]) :- 0 is X rem 3, divisors_3_5(Xs, Ys). +divisors_3_5([X|Xs], [X|Ys]) :- 0 is X rem 5, divisors_3_5(Xs, Ys). +divisors_3_5([X|Xs], Ys]) :- divisors_3_5(Xs, Ys). diff --git a/prolog.txt b/prolog.txt new file mode 100644 index 0000000..f1f0f31 --- /dev/null +++ b/prolog.txt @@ -0,0 +1,3 @@ +swipl +[file]. +fn.