F# 定义搜索函数

下面是一个使用F#定义搜索函数的示例代码：

let rec linearSearch (arr: 'a array) (target: 'a) (index: int) =
    if index >= arr.Length then
        None
    else if arr.[index] = target then
        Some index
    else
        linearSearch arr target (index + 1)

let arr = [| 1; 2; 3; 4; 5 |]
let target = 3

match linearSearch arr target 0 with
| Some index -> printfn "Target found at index %d" index
| None -> printfn "Target not found"

该示例中，我们定义了一个递归的线性搜索函数linearSearch，它接受一个数组arr、目标元素target和当前索引index作为参数。函数从数组的第index个元素开始，逐个比较每个元素与目标元素是否相等，直到找到目标元素或遍历完整个数组。

如果找到目标元素，我们返回Some index，其中index是目标元素在数组中的索引；如果遍历完整个数组仍没有找到目标元素，我们返回None。

在示例中，我们定义了一个整数数组arr和一个整数目标值target，然后调用linearSearch函数进行搜索。最后，使用match表达式来处理搜索结果，打印相应的消息。如果目标元素在数组中找到，打印"Target found at index %d"，否则打印"Target not found"。

请注意，这只是一个简单的线性搜索示例。在实际应用中，可能需要考虑其他搜索算法来提高搜索效率。