Revision: 44752
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at April 17, 2011 16:11 by mjaniec
Initial Code
LenLongStr <- function(String1, String2) {
s1 <- unlist(strsplit(String1,split="")) # rozbicie stringu na tablice znakow
s2 <- unlist(strsplit(String2,split=""))
num <- matrix(0,nchar(String1),nchar(String2) )
maxlen <- 0
for (i in 1:nchar(String1)) {
for (j in 1:nchar(String2)) {
if (s1[i] == s2[j]) {
if ((i==1) || (j==1)) {
num[i,j] <- 1
}
else {
num[i,j] <- 1+num[i-1,j-1]
}
if (num[i,j] > maxlen) {
maxlen <- num[i,j]
}
}
}
}
maxlen
}
Initial URL
Initial Description
Initial Title
Longest Common Substring
Initial Tags
Initial Language
R