Another sample file

This commit is contained in:
Arfon Smith
2014-09-04 13:53:36 -05:00
parent fae6dbfebd
commit bca9716fc6
2 changed files with 22 additions and 11 deletions

5
samples/Prolog/ex6.pl Normal file
View File

@@ -0,0 +1,5 @@
%6.8
subset(Set, Subset) :-
append(L1, Subset, Set).
powerset(Set, Subset) :-
bagof(Subset, subset(Set, Subset), Subset).