Drezil/hgraph
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

formatted Main.hs

Browse Source
This commit is contained in:
Stefan Dresselhaus
2013-11-29 20:11:04 +01:00
parent fc0a836e65
commit b68bed0160
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/Main.hs
View File

@@ -29,6 +29,7 @@ import Data.Array.Repa.Repr.Unboxed
import Data.ByteString.Char8 (ByteString) import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B import qualified Data.ByteString.Char8 as B
import Data.Either (lefts, rights) import Data.Either (lefts, rights)
import Data.Functor.Identity
import qualified Data.List as L import qualified Data.List as L
import qualified Data.Stream as S import qualified Data.Stream as S
import qualified Data.Text as T import qualified Data.Text as T
@@ -37,7 +38,6 @@ import Debug.Trace
import System.Environment import System.Environment
import System.Exit (exitFailure) import System.Exit (exitFailure)
import Test.QuickCheck.All (quickCheckAll) import Test.QuickCheck.All (quickCheckAll)
import Data.Functor.Identity
-- TODO: Give createGraph a presized Array and no dynamic [Int]. -- TODO: Give createGraph a presized Array and no dynamic [Int].
@@ -101,8 +101,8 @@ _createOutput' shape@(Z :. si :. sj) a itt lt = [(_createOutput'' shape i 0 a it
_createOutput'' :: (Unbox a, Show a) => DIM2 -> Int -> Int -> Array U DIM2 a -> String -> String _createOutput'' :: (Unbox a, Show a) => DIM2 -> Int -> Int -> Array U DIM2 a -> String -> String
_createOutput'' shape@(Z :. si :. sj) i j a itt _createOutput'' shape@(Z :. si :. sj) i j a itt
| sj-1 == j = show (a!(ix2 i j)) -- no "," for last one.. | sj-1 == j = show (a!(ix2 i j)) -- no "," for last one..
| otherwise = show (a!(ix2 i j)) ++ itt ++ (_createOutput'' shape i (j+1) a itt) | otherwise = show (a!(ix2 i j)) ++ itt ++ (_createOutput'' shape i (j+1) a itt)
{- {-
T.intercalate (T.singleton ',') (L.map (T.pack . show) a) T.intercalate (T.singleton ',') (L.map (T.pack . show) a)
createOutput' (a:as) = T.append createOutput' (a:as) = T.append
@@ -155,15 +155,15 @@ exeMain = do
-- +|| (parBuffer 100 rdeepseq) --run parallel, evaluate fully -- +|| (parBuffer 100 rdeepseq) --run parallel, evaluate fully
attrNum <- return $ getAttrLength (head unrefined_attr) attrNum <- return $ getAttrLength (head unrefined_attr)
putStrLn $ show (adjLines, attrLines, attrNum) putStrLn $ show (adjLines, attrLines, attrNum)
----- CHECK FOR ERRORS ----- CHECK FOR ERRORS
-- print out any read-errors and abort -- print out any read-errors and abort
if adjLines /= attrLines then if adjLines /= attrLines then
checkError $ T.pack $ "Adjacency-Matrix size "++ show adjLines ++ checkError $ T.pack $ "Adjacency-Matrix size "++ show adjLines ++
" differs from Attribute-Matrix " ++ show attrLines ++ " differs from Attribute-Matrix " ++ show attrLines ++
".\n" ".\n"
else else
return () return ()
checkError $ T.intercalate (T.singleton '\n') (rights unrefined_graph) checkError $ T.intercalate (T.singleton '\n') (rights unrefined_graph)
checkError $ T.intercalate (T.singleton '\n') (rights unrefined_attr) checkError $ T.intercalate (T.singleton '\n') (rights unrefined_attr)
@@ -172,7 +172,7 @@ exeMain = do
graph <- return $ A.fromListUnboxed (Z :. adjLines :. adjLines) (L.foldl1' (++) (lefts unrefined_graph)) -- concatenated graph graph <- return $ A.fromListUnboxed (Z :. adjLines :. adjLines) (L.foldl1' (++) (lefts unrefined_graph)) -- concatenated graph
attr <- return $ A.fromListUnboxed (Z :. attrLines :. attrNum) (L.foldl1' (++) (lefts unrefined_attr)) -- concatenated attr attr <- return $ A.fromListUnboxed (Z :. attrLines :. attrNum) (L.foldl1' (++) (lefts unrefined_attr)) -- concatenated attr
----- CALCULATE ----- CALCULATE
output <- return $ doCalculation graph attr output <- return $ doCalculation graph attr
B.putStr output B.putStr output