Détecteur de motifs

Fait partie de la section Fondamentaux du Journey R de Coddy — leçon 77 sur 78.

Défi

Facile

Créez une fonction appelée count_pattern qui prend deux arguments : text et pattern. La fonction doit retourner le nombre de fois que le motif apparaît dans le texte, y compris les occurrences chevauchantes.

Vous recevrez deux lignes d'entrée :

La chaîne de texte dans laquelle effectuer la recherche
La chaîne de motif à rechercher

Appelez votre fonction avec les entrées fournies et affichez le résultat.

Conseils :

Utilisez nchar() pour obtenir la longueur des chaînes
Utilisez substr(text, start, stop) pour extraire des sous-chaînes
Parcourez chaque position de départ valide et vérifiez si la sous-chaîne correspond au motif

Par exemple, si l'entrée est :

ababa
aba

La sortie devrait être :

Explication : Le motif "aba" apparaît à la position 1 (ababa) et à la position 3 (ababa), donc le compte est 2.

Si l'entrée est :

mississippi
issi

La sortie devrait être :

Essayez vous-même

# Lire l'entrée
con <- file("stdin", "r")
text <- suppressWarnings(readLines(con, n = 1))
pattern <- suppressWarnings(readLines(con, n = 1))
close(con)

# TODO : Créer une fonction appelée count_pattern qui prend text et pattern
# et retourne le nombre d'occurrences chevauchantes de pattern dans text


# Appeler la fonction et afficher le résultat
print(count_pattern(text, pattern))