diff admixture/transpose.awk @ 8:f629291bf98c draft

Uploaded
author dereeper
date Fri, 20 Feb 2015 10:58:51 -0500
parents fb274c4ae95a
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/admixture/transpose.awk	Fri Feb 20 10:58:51 2015 -0500
@@ -0,0 +1,27 @@
+#!/usr/bin/gawk -f
+
+BEGIN {
+    max_x =0;
+    max_y =0;
+}
+
+{
+    max_y++;
+    for( i=1; i<=NF; i++ )
+    {
+        if (i>max_x) max_x=i;
+        A[i,max_y] = $i;
+    }
+}
+
+END {
+    for ( x=1; x<=max_x; x++ )
+    {
+        for ( y=1; y<=max_y; y++ )
+        {
+            if ( (x,y) in A ) printf "%s",A[x,y];
+            if ( y!=max_y ) printf " ";
+        }
+        printf "\n";
+    }
+}