Graphs

71,513 Views

Report

• # Module library for mathematical graphs in Verse
  Graphs<public> := module:
  
      using { /Verse.org/Random }
  
      # Integer weighted graph
      IntegerWeightedGraph<public> := class<concrete>:
  
          Vertices:?[]int = false
          Edges:?[]tuple(int,int,int) = false
          AdjacencyList:?[int][]tuple(int,int) = false
  
          GetEdges<public>()<decides><transacts>:[]tuple(int,int,int) =
              Edges?
  
          GetVertices<public>()<decides><transacts>:[]int =
              Vertices?
  
          GetAdjacencyList<public>()<decides><transacts>:[int][]tuple(int,int) =
              AdjacencyList?
  
          DebugString<public>()<transacts>:string =
              var ReturnString: string = ""
              if (List:=AdjacencyList?):
                  for (Vertex->VertexEdges:List):
                      for(Edge:VertexEdges):
                          set ReturnString += "\t{Vertex} - ({Edge(1)}) -> {Edge(0)}\n"
              ReturnString