Desen Bulucu

Coddy'nin R Journey'sinin Temeller bölümünün bir parçası. Ders 77 / 78.

Görev

Kolay

count_pattern adlı, iki bağımsız değişken alan bir işlev oluşturun: text ve pattern. İşlev, çakışan oluşumlar da dâhil olmak üzere, kalıbın metinde kaç kez göründüğünü döndürmelidir.

İki satır girdi alacaksınız:

İçinde arama yapılacak metin dizesi
Aranacak kalıp dizesi

İşlevinizi verilen girdilerle çağırın ve sonucu yazdırın.

İpuçları:

Dizelerin uzunluğunu almak için nchar() kullanın
Alt dizeleri çıkarmak için substr(text, start, stop) kullanın
Her geçerli başlangıç konumu üzerinde yineleme yapın ve alt dizenin kalıpla eşleşip eşleşmediğini kontrol edin

Örneğin, girdi şu şekildeyse:

ababa
aba

Çıktı şu şekilde olmalıdır:

Açıklama: "aba" kalıbı 1. konumda (ababa) ve 3. konumda (ababa) görünür; bu nedenle sayı 2'dir.

Girdi şu şekildeyse:

mississippi
issi

Çıktı şu şekilde olmalıdır:

Kendin dene

# Girdiyi oku
con <- file("stdin", "r")
text <- suppressWarnings(readLines(con, n = 1))
pattern <- suppressWarnings(readLines(con, n = 1))
close(con)

# YAPILACAK: text ve pattern parametrelerini alan count_pattern adında bir fonksiyon oluşturun
# ve metin içindeki desenin çakışan oluşumlarının sayısını döndürün


# Fonksiyonu çağırın ve sonucu yazdırın
print(count_pattern(text, pattern))