Permalink
Browse files

using replicateM in newVars

  • Loading branch information...
1 parent ac61232 commit aa3978bda8d88b469f129994a6507e11b6ccf580 @nilscc committed Nov 21, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Numeric/LinearProgramming/Easy.hs
@@ -134,7 +134,7 @@ newVar = Simplex $ do
-- | Create a list of @n@ new variables.
newVars :: Int -> Simplex [SimplexVar]
-newVars i = mapM (const newVar) [1..i]
+newVars n = replicateM n newVar
minimize :: SimplexExpr -> [SimplexConstraints] -> Simplex Solution

0 comments on commit aa3978b

Please sign in to comment.