From 6859c5712a85950b5bc3de3fe8352f4592bc273b Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Sat, 11 Sep 2010 11:10:33 +0000
Subject: added generic konst

---
 examples/Real.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'examples')

diff --git a/examples/Real.hs b/examples/Real.hs
index b32a961..02eba9f 100644
--- a/examples/Real.hs
+++ b/examples/Real.hs
@@ -67,13 +67,13 @@ diagl = diag . vector
 zeros :: Int -- ^ rows
       -> Int -- ^ columns
       -> Matrix Double
-zeros r c = reshape c (constant 0 (r*c))
+zeros r c = konst 0 (r,c)
 
 -- | Create a matrix or ones.
 ones :: Int -- ^ rows
      -> Int -- ^ columns
      -> Matrix Double
-ones r c = reshape c (constant 1 (r*c))
+ones r c = konst 1 (r,c)
 
 -- | Concatenation of real vectors.
 infixl 9 #
-- 
cgit v1.2.3