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

sequences.cords: specialize vshuffle-elements to use vshuffle2-elements on cord components

db4
Joe Groff 2010-05-14 13:29:37 -07:00
parent 8f1751cd54
commit 22625469bc
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/sequences/cords/cords.factor
View File

@ -58,6 +58,11 @@ M: T cord-append
[ [ [ head>> ] bi@ ] dip call ] [ [ [ head>> ] bi@ ] dip call ]
[ [ [ tail>> ] bi@ ] dip call ] 3bi ; inline [ [ [ tail>> ] bi@ ] dip call ] 3bi ; inline
<PRIVATE
: split-shuffle ( shuf -- sh uf )
dup length 2 /i cut* ; foldable
PRIVATE>
M: cord v+ [ v+ ] cord-2map ; inline M: cord v+ [ v+ ] cord-2map ; inline
M: cord v- [ v- ] cord-2map ; inline M: cord v- [ v- ] cord-2map ; inline
M: cord vneg [ vneg ] cord-map ; inline M: cord vneg [ vneg ] cord-map ; inline
@ -96,6 +101,9 @@ M: cord vunordered? [ vunordered? ] cord-2map ; inline
M: cord vany? [ vany? ] cord-both or ; inline M: cord vany? [ vany? ] cord-both or ; inline
M: cord vall? [ vall? ] cord-both and ; inline M: cord vall? [ vall? ] cord-both and ; inline
M: cord vnone? [ vnone? ] cord-both and ; inline M: cord vnone? [ vnone? ] cord-both and ; inline
M: cord vshuffle-elements
[ [ head>> ] [ tail>> ] bi ] [ split-shuffle ] bi*
[ vshuffle2-elements ] bi-curry@ 2bi cord-append ; inline
M: cord n+v [ n+v ] with cord-map ; inline M: cord n+v [ n+v ] with cord-map ; inline
M: cord n-v [ n-v ] with cord-map ; inline M: cord n-v [ n-v ] with cord-map ; inline