1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
module Main where type Vertex = Integer type Edge = (Vertex, Vertex) type AssocList = [Edge] data DigraphVertex = DigraphVertex { source :: Vertex , dest :: [Vertex] } type Digraph = [DigraphVertex] main = putStrLn "Hello, World!"
1
Hello, World!