From 2b1d7f881c19c4d4b5afae194e02d3300c7675d0 Mon Sep 17 00:00:00 2001
From: Patrick Simianer <p@simianer.de>
Date: Tue, 5 Jul 2016 11:01:46 +0200
Subject: mv

---
 merge-files | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 merge-files

(limited to 'merge-files')

diff --git a/merge-files b/merge-files
new file mode 100755
index 0000000..714b57d
--- /dev/null
+++ b/merge-files
@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+
+require 'zipf'
+
+def usage
+  STDERR.write "merge_files <file>+\n"
+  exit 1
+end
+usage if ARGV.size==0
+
+files = ARGV
+hashes = []
+
+files.each { |i|
+  hashes.push Hash.new
+  hashes.last.default = 0
+  f = ReadFile.new i
+  while line = f.gets
+    hashes.last[line.strip] += 1
+  end
+  f.close
+}
+
+hashes.each { |h|
+  h.each { |k,v|
+    counts = []
+    hashes.each { |j| counts.push j[k]; j.delete k }
+    counts.max.times { puts k }
+  }
+}
+
-- 
cgit v1.2.3