steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

soundex: make implementation private.

locals-and-roots
John Benediktsson 2016-04-16 16:38:42 -07:00
parent 3ffa47de6c
commit df868fa972
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/soundex/soundex.factor
View File

@ -3,6 +3,8 @@
USING: ascii kernel sequences tr ; USING: ascii kernel sequences tr ;
IN: soundex IN: soundex
<PRIVATE
TR: soundex-digits TR: soundex-digits
"AEHIOUWYBFPVCGJKQSXZDTLMNR" "AEHIOUWYBFPVCGJKQSXZDTLMNR"
"AEHIOUWY111122222222334556" ; "AEHIOUWY111122222222334556" ;
@ -23,6 +25,8 @@ TR: soundex-digits
: ?replace-first ( seq first -- seq ) : ?replace-first ( seq first -- seq )
over first digit? [ over set-first ] [ drop ] if ; over first digit? [ over set-first ] [ drop ] if ;
PRIVATE>
: soundex ( string -- soundex ) : soundex ( string -- soundex )
>upper [ LETTER? ] filter [ >upper [ LETTER? ] filter [
remove-hw remove-hw