From 4bf6ab567b2358122139130dc02932048a2882e8 Mon Sep 17 00:00:00 2001
From: Patrick Simianer <p@simianer.de>
Date: Sat, 11 Nov 2017 12:04:57 +0100
Subject: repetition rate

---
 rr | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100755 rr

(limited to 'rr')

diff --git a/rr b/rr
deleted file mode 100755
index 87938ae..0000000
--- a/rr
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/env ruby
-
-require 'zipf'
-
-windows = []
-cur = []
-cur_sz = 0
-while line = STDIN.gets
-  if cur_sz >= 1000
-    windows << cur
-    cur = []
-    cur_sz = 0 
-  end
-  cur << line.strip
-  cur_sz += cur.last.split.size
-end
-
-enums = [0.0]*4
-denoms = [0.0]*4
-windows.each { |w|
-  ng_by_n = [{}]*4
-  w.each { |seg|
-    ngrams(seg, 4) { |ng|
-      if ng_by_n[ng.size-1].has_key? ng
-        ng_by_n[ng.size-1][ng] += 1
-      else
-        ng_by_n[ng.size-1][ng] = 1
-      end
-    }
-  }
-  ng_by_n.each_with_index { |ng,j|
-    singletons = ng.reject { |k,v| v > 1 }.size
-    enums[j] += ng.size - singletons
-    denoms[j] += ng.size.to_f
-  }
-}
-
-rr = 1.0
-enums.each_with_index { |i,j|
-  rr *= i/denoms[j] 
-}
-
-puts ((rr**0.25)*100).round 2
-
-- 
cgit v1.2.3