def search_string as function (lista, palavra){
return(list of[grep(palavra, lista)])
}
palavras <- ["manga", "banana", "pera", "laranja"]
search_string(palavras, "n")

search_string <- function(lista:list, palavra:string){
return(list of[grep(palavra, lista)])
}
palavras <- ["manga", "banana", "pera", "laranja"]
search_string(palavras, "n")

search_string <- function(lista, palavra){
return(lista[grep(palavra, lista)])
}
palavras <- ["manga", "banana", "pera", "laranja"]
search_string(palavras, "n")

search_string <- function(lista, palavra){
return(lista[grep(palavra, lista)])
}
palavras <- c("manga", "banana", "pera", "laranja")
search_string(palavras, "n")

def search_string as function(lista, palavra){
return(list of[grep(palavra, lista)])
}
palavras <- a("manga", "banana", "pera", "laranja")
search_string(palavras, "n")