general-tree-graceful-labeling

general-tree-graceful-labeling takes as an argument a single tree, or if an argument is not provided, will read a single tree from manual input. The labeling is returned as specified above.

CL-USER 5 > (general-tree-graceful-labeling)
4
0 1 0 0
1 0 1 0
0 1 0 1
0 0 1 0

(0 3 1 2)

CL-USER 6 > (setq *my-tree* (read-graph))
6
0 1 0 0 0 0
1 0 1 1 1 1
0 1 0 0 0 0
0 1 0 0 0 0
0 1 0 0 0 0
0 1 0 0 0 0

#S(Graph :Adjacency-Matrix ((Nil T Nil Nil Nil Nil) 
(T Nil T T T T) (Nil T Nil Nil Nil Nil) (Nil T Nil Nil Nil Nil) 
(Nil T Nil Nil Nil Nil) (Nil T Nil Nil Nil Nil)) :Internal-Order Nil 
:Internal-G6-String Nil :Internal-Canonical-Label Nil 
:Internal-Dreadnaut-String Nil :Internal-Graceful-Labeling Nil)

CL-USER 7 > (general-tree-graceful-labeling *my-tree*)
(0 5 1 2 3 4)