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

Fix soundex

db4
Slava Pestov 2008-07-15 20:57:56 -05:00
parent 2a1f6885fb
commit 19919bb130
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/soundex/soundex-tests.factor
View File

@ -2,3 +2,4 @@ IN: soundex.tests
USING: soundex tools.test ; USING: soundex tools.test ;
[ "S162" ] [ "supercalifrag" soundex ] unit-test [ "S162" ] [ "supercalifrag" soundex ] unit-test
[ "M000" ] [ "M" soundex ] unit-test

4
extra/soundex/soundex.factor
View File

@ -25,8 +25,8 @@ TR: soundex-tr
[ first>upper ] [ first>upper ]
[ [
soundex-tr soundex-tr
trim-first [ "" ] [ trim-first ] if-empty
remove-duplicates [ "" ] [ remove-duplicates ] if-empty
remove-zeroes remove-zeroes
] bi ] bi
pad-4 pad-4