]> gitweb.factorcode.org Git - factor.git/commitdiff
math.matrices: Add m+n, m-n, n+m, n-m, words.
authorDoug Coleman <doug.coleman@gmail.com>
Mon, 5 Nov 2012 16:42:50 +0000 (08:42 -0800)
committerDoug Coleman <doug.coleman@gmail.com>
Thu, 8 Nov 2012 06:53:52 +0000 (22:53 -0800)
basis/math/matrices/matrices.factor

index bf9aba23a041a32de25f530f99c4d9f51370842d..efeb0ef6e0baaf018073c3b5e78be41fac1e6380 100644 (file)
@@ -118,6 +118,10 @@ IN: math.matrices
 ! Matrix operations
 : mneg ( m -- m ) [ vneg ] map ;
 
+: n+m  ( n m -- m ) [ n+v ] with map ;
+: m+n  ( m n -- m ) [ v+n ] curry map ;
+: n-m  ( n m -- m ) [ n-v ] with map ;
+: m-n  ( m n -- m ) [ v-n ] curry map ;
 : n*m ( n m -- m ) [ n*v ] with map ;
 : m*n ( m n -- m ) [ v*n ] curry map ;
 : n/m ( n m -- m ) [ n/v ] with map ;