我不知道如何使用 sInsert 函数。你能帮助我吗？ [关闭]

Question

我不知道如何使用sInsert 函数。你能帮帮我吗？

sInsert :: Ord a => a -> Tree a -> Tree a
sInsert x Nil = Node x Nil Nil
sInsert x (Node a t1 t2) = if x <= a
                        then Node a (sInsert x t1) t2
                        else Node a t1 (sInsert x t2)

sInsert (???)

Answer 1

您可以从Nil 开始构造一棵树，然后在其中插入数据。例如，这里有一小部分您可以尝试在 GHCi 中求值的表达式：

sInsert "c" Nil
sInsert "a" (sInsert "c" Nil)
sInsert "b" (sInsert "a" (sInsert "c" Nil))
...