5 lines
135 B
Standard ML
5 lines
135 B
Standard ML
open List
|
|
open Types
|
|
|
|
let combine (tr1 : 'a tree) (tr2 : 'a tree) (topBranch : 'a) : 'a tree =
|
|
Branch (topBranch, tr1 :: tr2 :: []) |