Help for this page

Select Code to Download


  1. or download this
    
    === haskell ===
    ...
     
    sub samefringe ($a, $b) { all fringe($a) Z=== fringe($b) }
    
  2. or download this
    
    sub fringe ($tree) {                  # $tree is aliased to $a passed
    ...
    
    }