此页面在Shell中提供了一个电源集实现,这是我的看法:
pa() {
if [ "$#" = 0 ]
then echo
else (
shift
pa "$@"
) | while read qu
do printf '%s %sn%sn' "$1" "$qu" "$qu"
done
fi
}
pa x y z
我认为上一页的作者发表了此评论很有趣:
没有好的尴尬解决方案。欢迎您通过电子邮件发送给我:<他的电子邮件>
这不能在尴尬中完成,或者外壳只是在这里做得更好吗?
这是另一种尴尬方法:
echo a b c | awk '{for(i=0;i<2^NF;i++) {
for(j=0;j<NF;j++)
if(and(i,(2^j))) printf "%s ",$(j+1)
print ""}}'
a
b
a b
c
a c
b c
a b c
如果您的尴尬没有and()
功能,请用int(i/(2^j))%2
替换。
这是一个从rosetta代码改编的解决方案:
function al(br, ch, de) {
while (br) {
ch--
if (br % 2)
de = de $(sprintf("%c", 49 + ch)) FS
br = int(br / 2)
}
return de
}
{
for (ec = 0; ec <= 2 ^ NF - 1; ec++) {
print al(ec, NF)
}
}
用法:
echo x y z | power-set.awk
示例
在gnu awk中(由于 and
, lshift
和 split
:)
$ cat program.awk
BEGIN {
n=split(s,a,"")
for(i=1;i<2^n;i++) {
for(j=1;j<=n;j++)
if(and(lshift(1,(j-1)),i))
printf "%s", a[j]
print ""
}
}
用法:
$ awk -v s="abc" -f program.awk
a
b
ab
c
ac
bc
abc