blob: 93a7e90fbe9ebec32c5718bb865058a9f2c2a215 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/env ruby
require 'zipf'
f = ReadFile.new ARGV[0]
g = ReadFile.new ARGV[1]
h = ReadFile.new ARGV[2]
refs = []
sys1 = []
sys2 = []
diffs = []
while line = f.gets
line1 = g.gets
line2 = h.gets
refs << line
sys1 << line1
sys2 << line2
ff=File.new("/tmp/refs",'w+');ff.write(refs.join(""));ff.close
ff=File.new("/tmp/sys1",'w+');ff.write(sys1.join(""));ff.close
ff=File.new("/tmp/sys2",'w+');ff.write(sys2.join(""));ff.close
#a = `~/multi-bleu.perl /tmp/refs < /tmp/sys1`.split[2].gsub(',','').to_f
a = BLEU::bleu("/tmp/sys1", "/tmp/refs", 4)
b = BLEU::bleu("/tmp/sys2", "/tmp/refs", 4)
diffs << b-a
#puts ((diffs.inject(:+)/diffs.size)*100).round 2
puts (diffs[-1]*100).round 2
end
|