[Haskell-cafe] Gauss Elimination -> More Clean2Haskell

[Felipe Lessa]

On Tue, Nov 03, 2009 at 12:30:48PM -0800, Ryan Ingram wrote:
> ] prtSol i n1 arr
> ]    | i < 1     = return ()
> ]    | otherwise = do
> ]       b <- readArray arr (i, n1)
> ]       putStr ((show b)++" ")
> ]       prtSol (i-1) n1 arr

Which is just

> prtSol i n1 arr = unless (i < 1) $ do
>                     b <- readArray arr (i, n1)
>                     putStr ((show b)++" ")
>                     prtSol (i-1) n1 arr

--
Felipe.