10 lines
215 B
Plaintext
10 lines
215 B
Plaintext
datatype Tree<T> = Leaf(data: T)
|
|
| Node(left: Tree<T>, right: Tree<T>)
|
|
|
|
function Mirror<T>(t: Tree<T>): Tree<T> {
|
|
match t
|
|
case Leaf(_) => t
|
|
case Node(left, right) => Node(Mirror(right), Mirror(left))
|
|
}
|
|
|