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 diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor index 3203355bb9..4ba8e1d3d9 100644 --- a/basis/math/matrices/matrices.factor +++ b/basis/math/matrices/matrices.factor @@ -139,4 +139,4 @@ PRIVATE> : m^n ( m n -- n ) make-bits over first length identity-matrix - [ [ dupd m. ] when [ dup m. ] dip ] reduce nip ; + [ [ dupd m. ] when [ dup m. ] dip ] reduce nip ; \ No newline at end of file