Power set: Difference between revisions
m
→{{header|Prolog}}: show prompt correctly
(→{{header|Perl}}: actually provide what the task description asks for) |
m (→{{header|Prolog}}: show prompt correctly) |
||
Line 1,836:
</lang>
Output :
<pre>
X = [[], [1], [1, 2], [1, 2, 3], [1, 3], [2], [2, 3], [3]].
% Symbolic:
S = [[], [X], [X, Y], [Y]].
% In reverse:
X = 1,
Y = 2.</pre>
Line 1,855:
append(PS1, PS2, PS).</lang>
Output :
▲:- power_set([1,2,3,4,5,6,7,8], X), length(X,N), writeln(N).
256
</pre>
|