diff options
| author | Determinant <[email protected]> | 2017-05-31 21:23:39 -0400 |
|---|---|---|
| committer | Determinant <[email protected]> | 2017-05-31 21:23:39 -0400 |
| commit | 741e26dabbccb5821c79736590ad03286fe04f84 (patch) | |
| tree | 73533fe49b5ee59d75728ba0a0fc2713e07c8f4d /80-89/80.hs | |
| parent | 1a19a80d8c756559e108a46129fac9489ad43d28 (diff) | |
one prob left for v9
Diffstat (limited to '80-89/80.hs')
| -rw-r--r-- | 80-89/80.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/80-89/80.hs b/80-89/80.hs index 4dc2956..5f58f76 100644 --- a/80-89/80.hs +++ b/80-89/80.hs @@ -1,13 +1,10 @@ import Data.List (sort) -data Graph a = Graph [a] [(a, a)] - deriving (Show, Eq) +data Graph a = Graph [a] [(a, a)] deriving (Show, Eq) -data Adjacency a = Adj [(a, [a])] - deriving (Show, Eq) +data Adjacency a = Adj [(a, [a])] deriving (Show, Eq) -data Friendly a = Edge [(a, a)] - deriving (Show, Eq) +data Friendly a = Edge [(a, a)] deriving (Show, Eq) graphToAdj :: Eq a => Graph a -> Adjacency a |