Permalink
Browse files

Din't need to remove underscores, as they are not included in regexp.

  • Loading branch information...
dchest committed Nov 24, 2010
1 parent 0eab50b commit ed2897e27acecebfd8245eb377957c70fa83f139
Showing with 1 addition and 3 deletions.
  1. +1 −3 bayes.rkt
View
@@ -15,9 +15,7 @@
(define syllables-re (pregexp "(?i:[AEIOUÄÖÜ]+)"))
(define (get-words s)
(map (lambda (x)
; note: regexp-match works like x100 faster with bytes
(string-trim-both (bytes->string/utf-8 x) #\_))
(map bytes->string/utf-8
(regexp-match* words-re (string->bytes/utf-8 s))))
(define (get-sentences s)

0 comments on commit ed2897e

Please sign in to comment.