4

我知道递归函数是 F# 中的一项强大技术。我的问题是：有没有exit语句，可以跳出递归函数，就像命令式语言一样。例如，将节点插入二叉树。

type Tree<'a> when 'a :> IComparable<'a> =
           | Nil
           | Leaf of 'a
           | Node of Tree<'a> * 'a * Tree<'a>

let tt2 = Node(
              Node(Leaf "D", "B",Node(Leaf "G", "E", Leaf "H" )),
              "A",
              Node(Nil, "C", Node(Nil, "F", Leaf "I")))

let rec contains (x : #IComparable<'a>) = function
    | Nil -> false
    | Leaf y -> if x.CompareTo(y) = 0 then true else false
    | Node(l, y, r) -> 
         match l, y, r with
             | l, y, Nil -> if x.CompareTo(y) = 0 then true else contains x  l
             | Nil,y, r -> if x.CompareTo(y) = 0 then true else contains x r 
             | _ -> if x.CompareTo(y) = 0 then true
                    else contains x r |>ignore
                         contains x l

let xx = contains "C"  tt2  //It is wrong answer.
4

1 回答 1

10

有没有exit语句，可以跳出递归函数，就像命令式语言一样。

不，原因是您可以通过递归函数和模式匹配对命令式中断/返回进行编码。如果您想中断，只需返回一个值，否则调用另一个递归调用。

这个问题更适合求高阶函数。当您需要提前退出高阶函数时，编写自定义递归函数是可行的方法。如果您对 F# 中的命令式构造感兴趣，请查看 @Tomas 的优秀系列。

确定条件后，您的函数将在某个分支退出。唯一的问题是你不应该contain x r在倒数第二行丢弃。

if/else为了清楚起见，您可以删除多余的

let rec contains (x : #IComparable<'a>) = function
    | Nil -> false
    | Leaf y -> x.CompareTo(y) = 0
    | Node(l, y, r) -> 
         match l, y, r with
         | l, y, Nil -> x.CompareTo(y) = 0 || contains x l
         | Nil,y, r -> x.CompareTo(y) = 0 || contains x r 
         | _ -> x.CompareTo(y) = 0 || contains x l || contains x r
于 2013-04-16T13:56:04.490 回答