RosettaCodeData/Task/Functional-coverage-tree/J/functional-coverage-tree-3.j

merge=: ;@(({.@[,(+}.)~)&.> [: +/\1,_1}.#@>)
unrooted=: ([: merge <@(_1,$:@}.);.1)^:(0<#)
parent=:  unrooted level
parent_cover=: (] (1}.~.parent)}~ 1}. * %&(parent +//. ]) [)^:_
Initial data commit 2023-07-01 11:58:00 -04:00			`merge=: ;@(({.@[,(+}.)~)&.> [: +/\1,_1}.#@>)`
			`unrooted=: ([: merge <@(_1,$:@}.);.1)^:(0<#)`
			`parent=: unrooted level`
			`parent_cover=: (] (1}.~.parent)}~ 1}. * %&(parent +//. ]) [)^:_`