Power set: Difference between revisions

K version added
(K version added)
Line 880:
Outputs:
<pre>[[],[1],[2],[1,2],[3],[1,3],[2,3],[1,2,3],[4],[1,4],[2,4],[1,2,4],[3,4],[1,3,4],[2,3,4],[1,2,3,4]]</pre>
 
=={{header|K}}==
<lang K>
ps:{x@&:'+2_vs!_2^#x}
</lang>
Usage:
<lang K>
ps "ABC"
(""
,"C"
,"B"
"BC"
,"A"
"AC"
"AB"
"ABC")
</lang>
 
=={{header|Logo}}==