Power set: Difference between revisions
→{{header|AWK}}
Line 337:
</lang>
=={{header|
<lang AWK>cat power_set.awk
#!/usr/local/bin/gawk -f
# User defined function
function tochar(l,n, r) {
while (l) { n--; if (l%2 != 0) r = r sprintf(" %c ",49+n); l = int(l/2) }; return r
}
# For each input
{ for (i=0;i<=2^NF-1;i++) if (i == 0) printf("empty\n"); else printf("(%s)\n",tochar(i,NF)) }
</lang>
{{out}}
<pre>
$ gawk -f power_set.awk
1 2 3 4
empty
( 4 )
( 3 )
( 4 3 )
( 2 )
( 4 2 )
( 3 2 )
( 4 3 2 )
( 1 )
( 4 1 )
( 3 1 )
( 4 3 1 )
( 2 1 )
( 4 2 1 )
( 3 2 1 )
( 4 3 2 1 )
</pre>
=={{header|BBC BASIC}}==
|