Merge branch 'master' of ssh://github.com/pks/nlp_scripts

1 files changed, 30 insertions, 0 deletions

diff --git a/joint-set b/joint-set
new file mode 100755
index 0000000..b9b9b22
--- /dev/null
+++ b/joint-set
@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+
+require 'set'
+require 'zipf'
+
+n = ARGV.pop.to_i
+
+all = []
+all_sets = []
+ARGV.each { |file|
+  fp = ReadFile.new file
+  a = []
+  s = Set.new
+  while line = fp.gets
+    a << line
+    s << line
+  end
+  all << a
+  all_sets << s
+}
+
+joint_set = all_sets.pop
+all_sets.each { |set|
+  joint_set &= set
+}
+
+joint_set.each { |i|
+  puts i
+}
+