Select Code to Download

=== haskell ===
...
 
sub samefringe ($a, $b) { all fringe($a) Z=== fringe($b) }

sub fringe ($tree) {                  # $tree is aliased to $a passed
...

}