[freqs
'Dmitri Hrapof <hrapof@common-lisp.ru>'**20110302124140
 Ignore-this: 4013d341a6881849df7cd90d7f579627
] {
hunk ./cronfa-generic.lisp 91
+(defparameter *r5k* 0.0)
+(defparameter *r30k* 0.0)
+
hunk ./cronfa-generic.lisp 152
-<h1>Статистика словаря на ~a/~a/~a</h1>
+<h1>Статистика словаря на ~2,,,'0@a/~2,,,'0@a/~a</h1>
+<table border=\"0\">
+<tr><td>
hunk ./cronfa-generic.lisp 159
-      (format st "<tr><td>~a</td><td>~a</td></tr>~%" 
+      (format st "<tr><td>~a</td><td align=\"right\">~a</td></tr>~%" 
hunk ./cronfa-generic.lisp 161
-    (format st "</table><h2>Число слов с переводами</h2>
+    (format st "</table></td><td><h2>Число слов с переводами</h2>
hunk ./cronfa-generic.lisp 169
-	(format st "<td>~a</td>" (aref *s-count* (car lng) (car gnl))))
+	(format st "<td align=\"right\">~a</td>" (aref *s-count* (car lng) (car gnl))))
hunk ./cronfa-generic.lisp 171
-(format st "</table>~%")
+(format st "</table></td></tr></table>~%")
hunk ./cronfa-generic.lisp 183
+(format st "</table><h2>Процент покрытия наиболее частотных слов</h2>
+<table border=\"1\">
+<tr><td></td><td align=\"right\">5000</td><td align=\"right\">30000</td></tr>
+<tr><td>Русский</td><td align=\"right\">~,2f%</td>
+<td align=\"right\">~,2f%</td></tr></table>" *r5k* *r30k*)
hunk ./cronfa-pg.lisp 129
+     (setf *r5k* (caar (db-ask "select count(*)/5000.0 from rf where num<5001 and exists (select 1 from p, s where p.first=rf.id and p.second=s.id and s.lang=1")))
+     (setf *r30k* (caar (db-ask "select count(*)/30000.0 from rf where num<30001 and exists (select 1 from p, s where p.first=rf.id and p.second=s.id and s.lang=1")))
}