Leetcode 找出字符串中第一个匹配项的下标.f90

LeetCode问题28要求实现strStr()函数，即在一个主字符串(haystack)中找出第一个出现的指定子字符串(needle)的索引，如果不存在，则返回-1。如果needle为空字符串，返回0。 这段Fortran程序定义了一个strStr函数，它接受两个字符串参数：haystack和needle。函数通过两层循环遍历haystack字符串，尝试在每个可能的位置匹配整个needle字符串。如果找到匹配，它返回匹配的起始位置的索引（Fortran的索引从1开始）。如果遍历完成后没有找到匹配，它返回-1。如果needle为空字符串，根据问题描述，函数立即返回0。 请注意，这个实现在处理大字符串时可能效率不高，因为它的时间复杂度为O(n*m)，其中n是haystack的长度，m是needle的长度。在实际应用中，可能需要考虑使用更高效的字符串搜索算法。