Graph.hs 230 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
module Graph
where

import Data.Array.Parallel.Unlifted

data Graph = Graph { nodeCount :: Int
                   , edgeCount :: Int
                   , edges     :: UArr (Int :*: Int)
                   }
  deriving(Read,Show)