From db26c382cec3075224a8f7fbeb52b15a20d4090e Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 18 Aug 2009 12:32:17 +0200
Subject: import into git from the old website

---
 freqdump.pl | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 freqdump.pl

(limited to 'freqdump.pl')

diff --git a/freqdump.pl b/freqdump.pl
new file mode 100644
index 0000000..ccdd134
--- /dev/null
+++ b/freqdump.pl
@@ -0,0 +1,65 @@
+#!/usr/bin/perl -w
+
+sub parse_matr {
+  my $fn=shift;
+  my $l;my @l;my $k2;
+
+  open FM,"<$fn" or return;
+
+  $l=<FM>;
+  my @k1=split ' ',$l;
+  $i=0;
+
+  while ($l=<FM>) {
+    @l=split ' ',$l;
+    $k2=shift @l;
+    for ($j=0;$j<=$#k1;$j++) {
+      $matr{$k2}->{$k1[$j]}=shift @l;
+    }
+  }
+  close FM;
+}
+
+sub make_couples {
+  my $l=shift;
+  if (defined $l) {
+    for $j (sort keys %{$matr{$l}}) {
+      $couples{"$l$j"}=($matr{$l}->{$j})+($matr{$j}->{$l});
+    }
+  } else {
+    for $i (sort keys %matr) {
+      for $j (sort keys %{$matr{$i}}) {
+	if ($i lt $j) {$k="$i$j"} else {$k="$j$i"}
+	$couples{$k}+=$matr{$i}->{$j};
+      }
+    }
+  }
+}
+
+$MATRFN='/tmp/freq.matr';
+parse_matr($MATRFN);
+
+@tot=();
+
+for $k (reverse sort keys %matr) {
+  %couples=();
+  make_couples($k);
+  @k=keys %couples;
+  @k=sort {$couples{$b} <=> $couples{$a}} @k;
+  for (@k[0..9]) {push @tot,$_;push @tot,$couples{$_}};
+}
+
+$elems=($#tot+1)/2;
+
+$cols=8;
+$rows=1+int $elems/$cols;
+
+for ($i=0;$i<$rows;$i++) {
+  $j=$i;
+  while ($j<$elems) {
+    print $tot[$j*2],"->",sprintf('%4d',$tot[$j*2+1]),"  ";
+    $j+=$rows;
+  }
+  print "\n";
+}
+
-- 
cgit v1.2.3