İkili sayılara göre sözcük listeleri oluşturma

Aşağıdaki gibi görünen bir matris var:

Giriş :

A   B   C   D   E   F   G   H   I 
0   0   0   0   1   0   0   0   1
0   0   0   1   0   0   0   0   0  
0   0   0   1   0   0   0   0   0  
1   0   0   0   0   0   0   0   0  
1   0   1   0   0   0   1   0   0  
1   0   0   1   0   0   0   1   0  
1   0   0   0   1   1   1   0   0  

Ve her satır için 1 değerine karşılık gelen harf listesini çıkarmak istiyorum.

Çıktı :

E,I 
D
D
A
A,C,G  
A,D,H  
A,E,F,G  

Başlığı bölmeye ve kelimeleri sayılarla eşleştirmeye çalıştım ama başarısız oldum.

İçinde awk:

NR == 1 { for(column=1; column <= NF; column++) values[column]=$column; }
NR > 1 { output=""
        for(column=1; column <= NF; column++)
                if($column) output=output ? output "," values[column] : values[column]
        print output }

Başka bir tane perl

$ perl -lane 'if($. == 1){ @h=@F }
              else{@i = grep {$F[$_]==1} (0..$#F); print join ",",@h[@i]}
             ' ip.txt
E,I
D
D
A
A,C,G
A,D,H
A,E,F,G

• -agiriş satırını beyaz boşluklarda bölme seçeneği, @Fdizi halinde mevcuttur
• if($. == 1){ @h=@F } ilk satırsa başlığı kaydet
• @i = grep {$F[$_]==1} (0..$#F) giriş ise dizini kaydet 1
• print join ",",@h[@i],ayırıcı olarak yalnızca üstbilgi dizisinden bu dizini yazdır

Yine de eğlenmek için bir zshsürüm:

{
   read -A a  &&
   while read -A b; do
     echo ${(j<,>)${(s<>)${(j<>)a:^b}//(?0|1)}}
   done
} < file

• ${a:^b} iki diziyi sıkıştırır , böylece A 0 B 0 C 0 D 0 E 1 F 0 G 0 H 0 I 1 elde edersiniz
• ${(j<>)...} aralarında hiçbir şey olmayan elemanlara katılır, böylece A0B0C0D0E1F0G0H0I1 olur
• ${...//(?0|1)}Biz şerit ?0ve 1bu El hale gelir, böylece ondan:
• ${(s<>)...} harf başına bir öğe dizisi elde etmek için hiçbir şeye bölünmez: EI
• ${(j<,>)...}bunlara katılın ,-> E, I.

Başka bir awk çözümü:

awk 'NR==1{ split($0,a); next }   # capture and print `header` fields
     { for (i=1;i<=NF;i++)         # iterating through value fields `[0 1 ...]`
           if ($i) { printf "%s",(f?","a[i]:a[i]); f=1 } 
       f=0; print "" 
     }' file

Çıktı:

E,I
D
D
A
A,C,G
A,D,H
A,E,F,G

İşte Perl'de bir çözüm:

use strict;

my @header = split /\s+/, <>;
<>; ## Skip blank line
while (<>) {
    my @flags = split /\s+/;
    my @letters = ();
    for my $i (0 .. scalar @flags - 1) {
        push @letters, $header[$i] if $flags[$i];
    }

    print join(',', @letters), "\n";
}

Üstbilgi sütunlarını bir diziye okuyarak ve her veri satırı için, eşleşen veri sütunu doğru olarak değerlendirilirse sütun adını bir çıktı dizisine kopyalayarak çalışır. Sütun adları daha sonra virgülle ayrılır.

sedEğlenmek için bir tane:

sed '
  s/ //g
  1{h;d;}
  G;s/^/\
/
  :1
    s/\n0\(.*\n\)./\
\1/
    s/\n1\(.*\n\)\(.\)/\2\
\1/
  t1
  s/\n.*//
  s/./&,/g;s/,$//'

GNU ile sedaşağıdakileri biraz daha okunaklı hale getirebilirsiniz:

sed -E '
  s/ //g # strip the spaces

  1{h;d} # hold the first line

  G;s/^/\n/ # append the held line and prepend an empty line so the
            # pattern space becomes <NL>010101010<NL>ABCDEFGHI we will
            # build the translated version in the part before the first NL
            # eating one character at a time off the start of the
            # 010101010 and ABCDEFGHI parts in a loop:
  :1
    s/\n0(.*\n)./\n\1/     # ...<NL>0...<NL>CDEFGHI becomes
                           # ...<NL>...<NL>DEFGHI (0 gone along with C)

    s/\n1(.*\n)(.)/\2\n\1/ # ...<NL>1...<NL>CDEFGHI becomes
                           # ...C<NL>...<NL>DEFGHI (1 gone but C moved to 
                           #                        the translated part)
  t1 # loop as long as any of those s commands succeed

  s/\n.*// # in the end we have "ADG<NL><NL>", strip those NLs

  s/./,&/2g # insert a , before the 2nd and following characters'

Her satırda her zaman aynı sayıda basamak olduğunu varsayarak biraz daha kısa bir sürüm:

sed -E '
  s/ //g
  1{H;d}
  G
  :1
    s/^0(.*\n)./\1/
    s/^1(.*\n)(.*\n)(.)/\1\3\2/
  t1
  s/\n//g
  s/./,&/2g'

Bazı optimizasyonlara izin veren çevrilmiş ve indekslenmiş parçaları değiştirmemiz dışında yukarıdaki ile aynı.

python3

python3 -c '
import sys
header = next(sys.stdin).rstrip().split()
for line in sys.stdin:
  print(*(h*int(f) for (h, f) in zip(header, line.rstrip().split()) if int(f)), sep=",")

  ' <file
E,I
D
D
A
A,C,G
A,D,H
A,E,F,G

Saf bash çözeltisi:

read -a h
while read -a r
do (
    for i in ${!r[@]}
    do 
        (( r[i] == 1 )) && y[i]=${h[i]}
    done
    IFS=,
    echo "${y[*]}")
done

 void Main(string[] args)
        {
            int[,] numbers = new int[,]
            {
            {0, 0, 0, 0, 1, 0, 0, 0, 1},
            {0, 0, 0, 1, 0, 0, 0, 0, 0},
            {0, 0, 0, 1, 0, 0, 0, 0, 0},
            {1, 0, 0, 0, 0, 0, 0, 0, 0},
            {1, 0, 1, 0, 0, 0, 1, 0, 0},
            {1, 0, 0, 1, 0, 0, 0, 1, 0},
            {1, 0, 0, 0, 1, 1, 1, 0, 0}
            };
            string letters = "ABCDEFGHI";
            for (int row = 0; row < 7; row++)
            {
                for (int col = 0; col < 9; col++)
                {
                    if (numbers[row, col] == 1)
                        Console.Write(letters[col]);
                }
                Console.WriteLine();
            }
        }