From b426f287389c590a9431902273e5017ef9ef5b23 Mon Sep 17 00:00:00 2001
From: prunedtree <prunedtree@gmail.com>
Date: Fri, 12 Jun 2009 01:29:34 -0700
Subject: [PATCH 1/2] make m^n private
---
basis/math/matrices/matrices.factor | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index 61e98ee444..21d9a97adf 100644
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -61,8 +61,11 @@ PRIVATE>
: cross-zip ( seq1 seq2 -- seq1xseq2 )
[ [ 2array ] with map ] curry map ;
+
+<PRIVATE
-: m^n ( m n -- n )
+: m^n ( m n -- m )
make-bits over first length identity-matrix
[ [ dupd m. ] when [ dup m. ] dip ] reduce nip ;
+PRIVATE>
\ No newline at end of file
From 9ffbf32c6f94a71f37c11c0032f16ba74392d521 Mon Sep 17 00:00:00 2001
From: prunedtree <prunedtree@gmail.com>
Date: Fri, 12 Jun 2009 01:35:25 -0700
Subject: [PATCH 2/2] unit test for m^n
---
basis/math/matrices/matrices-tests.factor | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/basis/math/matrices/matrices-tests.factor b/basis/math/matrices/matrices-tests.factor
index 20942356de..3ee1ddbd6d 100644
--- a/basis/math/matrices/matrices-tests.factor
+++ b/basis/math/matrices/matrices-tests.factor
@@ -106,4 +106,7 @@ USING: math.matrices math.vectors tools.test math ;
[ { 1 0 0 } ] [ { 1 1 0 } { 1 0 0 } proj ] unit-test
[ { { { 1 "a" } { 1 "b" } } { { 2 "a" } { 2 "b" } } } ]
-[ { 1 2 } { "a" "b" } cross-zip ] unit-test
\ No newline at end of file
+[ { 1 2 } { "a" "b" } cross-zip ] unit-test
+
+[ { { 4181 6765 } { 6765 10946 } } ]
+[ { { 0 1 } { 1 1 } } 20 m^n ] unit-test