Menu
Coddy logo textTech

Buscador de patrones

Parte de la sección Fundamentos del Journey de R de Coddy — lección 77 de 78.

challenge icon

Desafío

Fácil

Crea una función llamada count_pattern que reciba dos argumentos: text y pattern. La función debe devolver el número de veces que el patrón aparece en el texto, incluyendo las ocurrencias superpuestas.

Recibirás dos líneas de entrada:

  1. La cadena de texto en la que buscar
  2. La cadena de patrón a buscar

Llama a tu función con las entradas proporcionadas e imprime el resultado.

Pistas:

  • Usa nchar() para obtener la longitud de las cadenas
  • Usa substr(text, start, stop) para extraer subcadenas
  • Itera a través de cada posición inicial válida y verifica si la subcadena coincide con el patrón

Por ejemplo, si la entrada es:

ababa
aba

La salida debería ser:

2

Explicación: El patrón "aba" aparece en la posición 1 (ababa) y en la posición 3 (ababa), por lo que el conteo es 2.

Si la entrada es:

mississippi
issi

La salida debería ser:

2

Pruébalo tú mismo

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

# TODO: Crear una función llamada count_pattern que reciba text y pattern
# y devuelva el recuento de ocurrencias superpuestas de pattern en text


# Llamar a la función e imprimir el resultado
print(count_pattern(text, pattern))

Todas las lecciones de Fundamentos