main = do
    src <- readFile "z:/euler/euler_0083.dat"
    let rows = map (\r -> (read ("[" ++ r ++ "]"))::[Int]) $ lines src
    let i1 = length rows
    let j1 = length (head rows)
    let cost = listArray ((1, 1), (i1, j1)) $ concat rows
    putStrLn  $ "test: " ++ show (euler sampleCost)
    putStrLn  $ "actual: " ++ show (euler cost)
main = do
    src <- readFile "z:/euler/euler_0083.dat"
    let rows = map (\r -> (read ("[" ++ r ++ "]"))::[Int]) $ lines src
    let i1 = length rows
    let j1 = length (head rows)
    let cost = listArray ((1, 1), (i1, j1)) $ concat rows
    putStrLn  $ "test: " ++ show (euler sampleCost)
    putStrLn  $ "actual: " ++ show (euler cost)
main = do
    src <- readFile "z:/euler/euler_0083.dat"
    let rows = map (\r -> (read ("[" ++ r ++ "]"))::[Int]) $ lines src
    let i1 = length rows
    let j1 = length (head rows)
    let cost = listArray ((1, 1), (i1, j1)) $ concat rows
    putStrLn  $ "test: " ++ show (euler sampleCost)
    putStrLn  $ "actual: " ++ show (euler cost)