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

porter-stemmer: use zip.

factor-shell
John Benediktsson 2018-01-19 12:13:58 -08:00
parent d5b5706241
commit c4d139ca9f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/porter-stemmer/porter-stemmer-tests.factor
View File

@ -1,6 +1,6 @@
IN: porter-stemmer.tests IN: porter-stemmer.tests
USING: arrays io kernel porter-stemmer sequences tools.test USING: arrays assocs io kernel porter-stemmer sequences
io.files io.encodings.utf8 ; tools.test io.files io.encodings.utf8 ;
{ 0 } [ "xa" consonant-seq ] unit-test { 0 } [ "xa" consonant-seq ] unit-test
{ 0 } [ "xxaa" consonant-seq ] unit-test { 0 } [ "xxaa" consonant-seq ] unit-test
@ -60,5 +60,5 @@ io.files io.encodings.utf8 ;
"vocab:porter-stemmer/test/voc.txt" utf8 file-lines "vocab:porter-stemmer/test/voc.txt" utf8 file-lines
[ stem ] map [ stem ] map
"vocab:porter-stemmer/test/output.txt" utf8 file-lines "vocab:porter-stemmer/test/output.txt" utf8 file-lines
[ 2array ] 2map [ first2 = ] reject zip [ = ] assoc-reject
] unit-test ] unit-test