Lines Matching refs:correct
15 my @fields = ("file", "correct", "invocab", "gdiff", "sd", "sd13", "spf", "abs", "gdiffpf", "rejrslt", "rankc", "match", "ortho", "choice1", "choice2", "score1", "conf", "gender");
128 $rr = $results{correct}/$results{total} * 100;
130 print sprintf("%-45s RR %4.1f %d/%d (%d oovs)\n", $base, $rr, $results{correct}, $results{total}, $results{numoovs});
153 $token->{correct} = "0";
157 $results->{correct}++;
158 $token->{correct} = "1";
170 $token->{correct} = "0";
173 $token->{correct} = "1";
174 $results->{correct}++ ;
176 $token->{correct} = "0";
