mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
6 lines
124 B
Prolog
6 lines
124 B
Prolog
%6.8
|
|
subset(Set, Subset) :-
|
|
append(L1, Subset, Set).
|
|
powerset(Set, Subset) :-
|
|
bagof(Subset, subset(Set, Subset), Subset).
|