Awk силовой агрегат реализация

Question

This page обеспечивает power set реализацию в скорлупе, вот мой взгляд на него:

pa() { 
    if [ "$#" = 0 ] 
    then echo 
    else (
    shift 
    pa "$@" 
) | while read qu 
    do printf '%s %s\n%s\n' "$1" "$qu" "$qu" 
    done 
    fi 
} 
pa x y z 

То, что я думал, был интересным является автором выше страницы сделал этот комментарий:

не хорошее решение AWK, вы можете по электронной почте мне одно: [его электронная почта]

Ca n это не делается в Awk, или же оболочка просто лучше работает здесь?

Answer 1

вот еще один awk подход

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 

если ваш awk не имеет and() функцию, замените его int(i/(2^j))%2

Answer 2

Вот решение адаптировано из Rosetta Code:

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 

Example

Answer 3

В 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