Untitled

mail@pastecode.io avatar
unknown
plain_text
7 months ago
205 B
0
Indexable
Never
DoesRandomStateContainLetter<-function(x){   x<-unlist(strsplit(x,""))   randomsamp<-strsplit(sample(state.name,1),"")   sapply(x, function(x) any(grepl(x,randomsamp))) } DoesRandomStateContainLetter("as")