Localizador de Padrões

Parte da seção Fundamentos do Journey de R da Coddy — lição 77 de 78.

Desafio

Fácil

Crie uma função chamada count_pattern que recebe dois argumentos: text e pattern. A função deve retornar o número de vezes que o padrão aparece no texto, incluindo ocorrências sobrepostas.

Você receberá duas linhas de entrada:

A string de texto onde a busca será realizada
A string de padrão a ser buscada

Chame sua função com as entradas fornecidas e imprima o resultado.

Dicas:

Use nchar() para obter o comprimento das strings
Use substr(text, start, stop) para extrair substrings
Itere por cada posição inicial válida e verifique se a substring corresponde ao padrão

Por exemplo, se a entrada for:

ababa
aba

A saída deve ser:

Explicação: O padrão "aba" aparece na posição 1 (ababa) e na posição 3 (ababa), portanto, a contagem é 2.

Se a entrada for:

mississippi
issi

A saída deve ser:

Experimente você mesmo

# Ler a entrada
con <- file("stdin", "r")
text <- suppressWarnings(readLines(con, n = 1))
pattern <- suppressWarnings(readLines(con, n = 1))
close(con)

# TODO: Criar uma função chamada count_pattern que recebe text e pattern
# e retorna a contagem de ocorrências sobrepostas de pattern em text


# Chamar a função e imprimir o resultado
print(count_pattern(text, pattern))