迷彩最长子串

Question

我有些运动有问题。 我必须找到最长的子字符串。

例：

"AGATGCCATTGTCCCCGACAACCAGCCA"

我必须将其转换为List并查找/搜索最长的子字符串并打印结果CCCC

我的功能必须类似于该function search : char list -> unit

而且我不能使用Module Str 。

Answer 1

不知道这个答案是否合适。 我相信我应该给个提示。

回忆一下在数组中找到最大数目的迭代算法。

int maximum = array[0];
for (i = 1; i < length; i++){
    if (array[i] > maximum){
        maximum = array[i];
    }
}

为了将代码转换为递归代码，我们不会在进行过程中更改值，而是在下一次调用中使用不同的参数。

let max_in_list =
let rec aux maximum l = match l with
    |[] -> maximum
    |x :: xs -> aux (max maximum x) xs in
function
    |[] -> invalid_arg "empty list"
    |x :: xs -> aux x xs

请注意，在每个递归调用中maximum变量是如何“更改”的，就像迭代中的变异变量一样。 当然，这不是惯用的方法，因为可以使用List.fold_left进行递归。

如果您真的不知道如何“递归思考”，请尝试先提出一个带有循环的算法，然后将其“转换”为递归。