패턴 찾기
Coddy R 여정의 기초 섹션에 포함된 레슨 — 78개 중 77번째.
챌린지
쉬움text와 pattern이라는 두 개의 인자를 받는 count_pattern이라는 함수를 생성하세요. 이 함수는 겹치는 경우를 포함하여 텍스트에서 패턴이 나타나는 횟수를 반환해야 합니다.
두 줄의 입력을 받게 됩니다:
- 검색할 대상이 되는 텍스트 문자열
- 찾으려는 패턴 문자열
제공된 입력값으로 함수를 호출하고 결과를 출력하세요.
힌트:
- 문자열의 길이를 구하려면
nchar()를 사용하세요 - 부분 문자열을 추출하려면
substr(text, start, stop)을 사용하세요 - 유효한 모든 시작 위치를 반복하며 부분 문자열이 패턴과 일치하는지 확인하세요
예를 들어, 입력이 다음과 같다면:
ababa
aba출력은 다음과 같아야 합니다:
2설명: 패턴 "aba"는 위치 1(ababa)과 위치 3(ababa)에서 나타나므로 카운트는 2입니다.
입력이 다음과 같다면:
mississippi
issi출력은 다음과 같아야 합니다:
2직접 해보기
# 입력 읽기
con <- file("stdin", "r")
text <- suppressWarnings(readLines(con, n = 1))
pattern <- suppressWarnings(readLines(con, n = 1))
close(con)
# TODO: text와 pattern을 인자로 받는 count_pattern이라는 함수를 생성하세요
# 그리고 text 내에서 pattern이 중첩되어 나타나는 횟수를 반환하세요
# 함수를 호출하고 결과를 출력하세요
print(count_pattern(text, pattern))