Mercurial > repos > dereeper > admixture

comparison transpose.awk @ 0:781ac6e7a3a1 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dereeper
date Fri, 20 Feb 2015 10:09:18 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:781ac6e7a3a1
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 }