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

sequences.extras: Fix bad rename. (each-from) -> setup-each-from now. Add a unit test for reduce-from.

locals-and-roots
Doug Coleman 2016-03-25 09:42:09 -07:00
parent c50e75ca85
commit 3c481192a0
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -181,3 +181,5 @@ IN: sequences.extras.tests
{ { 0 3 } } [ "ABA" "ABAABA" start-all ] unit-test
{ 1 } [ "ABA" "ABABA" count-subseq ] unit-test
{ 2 } [ "ABA" "ABABA" count-subseq* ] unit-test
{ 120000 } [ { 10 20 30 40 50 60 } 1 [ * ] 3 reduce-from ] unit-test

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

@ -208,16 +208,16 @@ PRIVATE>
<PRIVATE
: (each-from) ( i seq -- n quot )
: (setup-each-from) ( i seq -- n quot )
[ length over [-] swap ] keep '[ _ + _ nth-unsafe ] ; inline
: each-from ( i seq quot -- n quot' )
[ (each-from) ] dip compose ; inline
: setup-each-from ( i seq quot -- n quot' )
[ (setup-each-from) ] dip compose ; inline
PRIVATE>
: map-from-as ( ... seq quot: ( ... elt -- ... newelt ) i exemplar -- ... newseq )
[ -rot each-from ] dip map-integers ; inline
[ -rot setup-each-from ] dip map-integers ; inline
: map-from ( ... seq quot: ( ... elt -- ... newelt ) i -- ... newseq )
pick map-from-as ; inline