[Haskell-cafe] Gauss Elimination -> More Clean2Haskell

Felipe Lessa felipe.lessa at gmail.com
Wed Nov 4 07:23:45 EST 2009


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.


More information about the Haskell-Cafe mailing list