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

sequences.extra: make evens/odds virtual sequences.

windows-high-dpi
John Benediktsson 2018-02-16 08:40:57 -08:00
parent b38c1ffa16
commit 7203df0152
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -388,28 +388,28 @@ C: <evens> evens
M: evens length seq>> length 1 + 2/ ; inline
M: evens nth-unsafe [ 2 * ] [ seq>> nth-unsafe ] bi* ; inline
M: evens virtual@ [ 2 * ] [ seq>> ] bi* ; inline
M: evens like seq>> like ;
M: evens new-sequence seq>> new-sequence ;
M: evens virtual-exemplar seq>> ; inline
INSTANCE: evens immutable-sequence
INSTANCE: evens virtual-sequence
TUPLE: odds { seq read-only } ;
C: <odds> odds
M: odds length seq>> length 2/ ; inline
M: odds nth-unsafe [ 2 * 1 + ] [ seq>> nth-unsafe ] bi* ; inline
M: odds virtual@ [ 2 * 1 + ] [ seq>> ] bi* ; inline
M: odds like seq>> like ;
M: odds new-sequence seq>> new-sequence ;
M: odds virtual-exemplar seq>> ; inline
INSTANCE: odds immutable-sequence
INSTANCE: odds virtual-sequence
: until-empty ( seq quot -- )
[ dup empty? ] swap until drop ; inline