## String comparison is too slow in R language
## it will take 3 minutes, it is too slow
date()
strArray1<-rep("1234567890",10000)
strArray2<-rep("1234567890",10000)
tt<-0
for(xx in 1:10000)
{
for(yy in 1:10000)
{
if(strArray1[xx]==strArray2[yy])
{
tt<-tt+1
}
}
}
date()