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

sequences.extras: adding count* which returns % of counted items.

db4
John Benediktsson 2014-06-10 13:06:02 -07:00
parent a4e98529fa
commit 7b44637177
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/extras/extras-tests.factor
View File

@ -172,3 +172,5 @@ IN: sequences.extras.tests
{ "0123456789" } [ 58 iota [ 48 < ] "" reject-as ] unit-test
{ V{ 1 3 5 7 9 } } [ 10 iota >vector [ even? ] reject! ] unit-test
{ 3/10 } [ 10 iota [ 3 < ] count* ] unit-test

3
extra/sequences/extras/extras.factor
View File

@ -527,3 +527,6 @@ PRIVATE>
: replicate-into ( ... seq quot: ( ... -- ... newelt ) -- ... )
over [ length ] 2dip '[ _ dip _ set-nth-unsafe ] each-integer ; inline
: count* ( ... seq quot: ( ... elt -- ... ? ) -- ... % )
over [ count ] [ length ] bi* / ; inline