same fringe test. See http://rosettacode.org/wiki/Same_Fringe

fringe.p6

proto fringe($) { {*} }
multi fringe (Pair $node) { fringe $_ for $node.kv }
multi fringe (Any  $leaf) { $leaf }
 
sub samefringe ($a, $b) { fringe($a) eqv fringe($b) }

my $a = 1 => 2 => 3 => 4 => 5 => 6 => 7 => 8;
my $b = 1 => (( 2 => 3 ) => (4 => (5 => ((6 => 7) => 8))));
my $c = (((1 => 2) => 3) => 4) => 5 => 6 => 7 => 8;
 
my $x = 1 => 2 => 3 => 4 => 5 => 6 => 7 => 8 => 9;
my $y = 0 => 2 => 3 => 4 => 5 => 6 => 7 => 8;
my $z = 1 => 2 => (4 => 3) => 5 => 6 => 7 => 8;
 
use Test;
plan 6;
ok samefringe $a, $a;
ok samefringe $a, $b;
ok samefringe $a, $c;
 
nok samefringe $a, $x;
nok samefringe $a, $y;
nok samefringe $a, $z;

see previous revisions for lazy variations