Power set: Difference between revisions
Content deleted Content added
Added Logtalk version. |
→{{header|Prolog}}: replaced by cleaner version. non findall version will be added later. |
||
Line 1,078:
=={{header|Prolog}}==
<lang prolog>
findall(SubSet,subset(Set,SubSet),PowerSet).
subset([_|Tail],Set) :- subset(Tail,Set).
subset([Head|Tail],[Head|Set]) :- subset(Tail,Set).
powerset([], [[]]).▼
X = [[], [4], [3], [3, 4], [2], [2, 4], [2, 3], [2, 3, 4], [1], [1, 4], [1, 3], [1, 3, 4], [1, 2], [1, 2, 4], [1, 2, 3], [1, 2, 3, 4]].
</lang>
=={{header|PureBasic}}==
This code is for console mode.
|