RosettaCodeData/Task/Visualize-a-tree/Mathematica/visualize-a-tree-2.math
2023-07-01 13:44:08 -04:00

3 lines
185 B
Text

TreeForm[Defer@
TreeGraph[{1 \[DirectedEdge] 2, 1 \[DirectedEdge] 3, 2 \[DirectedEdge] 4, 2 \[DirectedEdge] 5,
3 \[DirectedEdge] 6, 4 \[DirectedEdge] 7}, VertexLabels -> "Name"]]