Same fringe: Difference between revisions
→{{header|Julia}}
Line 1,338:
<lang Julia>
using Lazy
"""
Input a tree for display as a fringed structure.
Line 1,348 ⟶ 1,349:
"""
equalsfringe() uses
getleaflist() for its "equality" of fringes
"""
getleaflist(tree::Int) = [tree]
getleaflist(tree::Pair) = vcat(getleaflist(seq(tree[1])), getleaflist(seq(tree[2])))
getleaflist(tree::Void) = []
equalsfringe(t1, t2) = (getleaflist(t1) == getleaflist(t2))
| |||