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")