Pencari Pola

Termasuk bagian Dasar-Dasar dalam perjalanan R di Coddy. Pelajaran 77 dari 78.

Tantangan

Mudah

Buat fungsi bernama count_pattern yang menerima dua argumen: text dan pattern. Fungsi ini harus mengembalikan jumlah kemunculan pattern di dalam text, termasuk kemunculan yang saling tumpang tindih.

Kamu akan menerima dua baris input:

String text yang akan ditelusuri
String pattern yang akan dicari

Panggil fungsi dengan input yang diberikan, lalu cetak hasilnya.

Petunjuk:

Gunakan nchar() untuk mendapatkan panjang string
Gunakan substr(text, start, stop) untuk mengambil substring
Telusuri setiap posisi awal yang valid dan periksa apakah substring cocok dengan pattern

Contohnya, jika inputnya adalah:

ababa
aba

Outputnya harus berupa:

Penjelasan: Pattern "aba" muncul di posisi 1 (ababa) dan posisi 3 (ababa), jadi jumlahnya adalah 2.

Jika inputnya adalah:

mississippi
issi

Outputnya harus berupa:

Coba sendiri

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

# TODO: Buat fungsi bernama count_pattern yang menerima text dan pattern
# dan mengembalikan jumlah kemunculan pattern yang saling tumpang tindih dalam text


# Panggil fungsi tersebut dan cetak hasilnya
print(count_pattern(text, pattern))