add a "vmask" vector op to selectively zero out elements

db4
Joe Groff 2009-09-29 18:10:36 -05:00
parent 60a9c49056
commit 5e16592596
1 changed files with 3 additions and 1 deletions

View File

@ -97,7 +97,9 @@ PRIVATE>
: vunordered? ( u v -- w ) [ unordered? ] { } 2map-as ;
: v= ( u v -- w ) [ = ] { } 2map-as ;
: v? ( ? u v -- w ) [ ? ] pick 3map-as ;
: v? ( ? true false -- w ) [ ? ] pick 3map-as ;
: vmask ( u ? -- u' ) swap dup dup vbitxor v? ;
: vfloor ( u -- v ) [ floor ] map ;
: vceiling ( u -- v ) [ ceiling ] map ;