comparison admixture/transpose.awk @ 8:f629291bf98c draft

Uploaded
author dereeper
date Fri, 20 Feb 2015 10:58:51 -0500
parents fb274c4ae95a
children
comparison
equal deleted inserted replaced
7:f11604d28633 8:f629291bf98c
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 }