add a "vmask" vector op to selectively zero out elements
parent
60a9c49056
commit
5e16592596
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue