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

sequences.extras: making evens/odds mutable sequences.

windows-high-dpi
John Benediktsson 2018-02-16 09:21:05 -08:00
parent dbd3febbf6
commit 2938c9b017
2 changed files with 2 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

@ -150,10 +150,12 @@ tools.test vectors vocabs ;
{ { } } [ { } <evens> >array ] unit-test { { } } [ { } <evens> >array ] unit-test
{ { 0 2 } } [ 4 <iota> <evens> >array ] unit-test { { 0 2 } } [ 4 <iota> <evens> >array ] unit-test
{ { 0 2 4 } } [ 5 <iota> <evens> >array ] unit-test { { 0 2 4 } } [ 5 <iota> <evens> >array ] unit-test
{ "bbddff" } [ "abcdef" <evens> [ 1 + ] map! seq>> ] unit-test
{ { } } [ { } <odds> >array ] unit-test { { } } [ { } <odds> >array ] unit-test
{ { 1 3 } } [ 5 <iota> <odds> >array ] unit-test { { 1 3 } } [ 5 <iota> <odds> >array ] unit-test
{ { 1 3 5 } } [ 6 <iota> <odds> >array ] unit-test { { 1 3 5 } } [ 6 <iota> <odds> >array ] unit-test
{ "acceeg" } [ "abcdef" <odds> [ 1 + ] map! seq>> ] unit-test
{ 1 } [ { 1 7 3 7 6 3 7 } arg-max ] unit-test { 1 } [ { 1 7 3 7 6 3 7 } arg-max ] unit-test
{ 2 } [ { 0 1 99 } arg-max ] unit-test { 2 } [ { 0 1 99 } arg-max ] unit-test

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

@ -392,8 +392,6 @@ M: evens virtual@ [ 2 * ] [ seq>> ] bi* ; inline
M: evens virtual-exemplar seq>> ; inline M: evens virtual-exemplar seq>> ; inline
INSTANCE: evens immutable-sequence
INSTANCE: evens virtual-sequence INSTANCE: evens virtual-sequence
TUPLE: odds { seq read-only } ; TUPLE: odds { seq read-only } ;
@ -406,8 +404,6 @@ M: odds virtual@ [ 2 * 1 + ] [ seq>> ] bi* ; inline
M: odds virtual-exemplar seq>> ; inline M: odds virtual-exemplar seq>> ; inline
INSTANCE: odds immutable-sequence
INSTANCE: odds virtual-sequence INSTANCE: odds virtual-sequence
: until-empty ( seq quot -- ) : until-empty ( seq quot -- )