Mercurial > repos > dereeper > sniplay3

comparison admixture/.svn/text-base/transpose.awk.svn-base @ 20:13cff72ec2d3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dereeper
date Mon, 23 Mar 2015 05:30:36 -0400
parents
children
comparison
equal deleted inserted replaced
19:a0a95688cf17 20:13cff72ec2d3
1 #!/usr/bin/gawk -f
2
3 BEGIN {
4 max_x =0;
5 max_y =0;
6 }
7
8 {
9 max_y++;
10 for( i=1; i<=NF; i++ )
11 {
12 if (i>max_x) max_x=i;
13 A[i,max_y] = $i;
14 }
15 }
16
17 END {
18 for ( x=1; x<=max_x; x++ )
19 {
20 for ( y=1; y<=max_y; y++ )
21 {
22 if ( (x,y) in A ) printf "%s",A[x,y];
23 if ( y!=max_y ) printf " ";
24 }
25 printf "\n";
26 }
27 }