Awk Kraft gesetzt Implementierung

Question

This page bietet eine power set Implementierung in der Schale, hier ist mein nehmen auf sie:

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 

Was ich dachte, war dieses die der Autor der obigen Seite interessant gemacht ist Kommentar:

keine schöne awk Lösung, sind Sie willkommen, mit mir eine E-Mail an: [seine E-Mail]

Ca Das geht nicht in Awk, oder macht Shell hier einfach einen besseren Job?

Answer 1

hier ist ein weiterer awk Ansatz

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 

wenn Ihr awk nicht and() Funktion hat, ersetzen Sie es mit int(i/(2^j))%2

Answer 2

Hier ist eine Lösung von Rosetta Code angepasst:

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) 
    } 
} 

Verbrauch:

echo x y z | power-set.awk 

Example

Answer 3

In Gnu awk (wegen and, lshift und dem Weg vonsplit :)

$ 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 "" 
    } 
} 

Verbrauch:

$ awk -v s="abc" -f program.awk 
a 
b 
ab 
c 
ac 
bc 
abc