Permalink
Browse files

Fix train!.

  • Loading branch information...
dchest committed Nov 24, 2010
1 parent 8fdd902 commit 2c295f0d40d0efbdcafd81ecb8fcdf358beb579c
Showing with 2 additions and 2 deletions.
  1. +2 −2 bayes.rkt
View
@@ -118,8 +118,8 @@
(vector-expand! *categories* cat))])
(for-each (lambda (w)
(hash-inc! *totals* idx)
(hash-inc! (hash-ref! *tokens* w (make-hasheqv)) idx)))
(get-tokens text))
(hash-inc! (hash-ref! *tokens* w (make-hasheqv)) idx))
(get-tokens text)))
; Readabilities
(let ([cur-rdb (readability-score text)])
(hash-update! *readabilities* cat (lambda (x) (/ (+ cur-rdb x) 2)) cur-rdb)))

0 comments on commit 2c295f0

Please sign in to comment.