Hello,
Here is q* from math.quaternions:
: q* ( u v -- u*v ) [ q*a ] 2keep q*b 2array ;
Rewritten:
: q* ( u v -- u*v ) { q*a q*b } 2arr ;
Ed
-------------------------------------------------------------------------
Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW!
Studies have shown that voting for your favorite open source project,
along with a healthy diet, reduces your potential for chronic lameness
and boredom. Vote Now at http://www.sourceforge.net/community/cca08
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
