Same fringe: Difference between revisions

{{Works with|Rakudo|#67 ("Bicycle")}}

Unlike in Perl 5, where <tt>=></tt> is just a synonym for comma, in Perl 6 it creates a true Pair object. So here we use Pair objects for our "cons" cells, just as if we were doing this in Lisp. We use the <tt>gather/take</tt> construct to harvest the leaves lazily as the elements are visited with a standard recursive algorithm, using multiple dispatch to differentiate nodes from leaves. The <tt>eqv</tt> value equivalence is applied to the two lists in parallel.

multi fringe(Pair $node) { fringe $_ for $node.kv }

multi fringe(Any $leaf) { take $leaf }