R语言：抓交通闯祸犯

一辆卡车违反交通法则，撞人后逃跑。现场有三人眼见事件，但都没有记着车号，只记下车号的一些特征。甲说：牌照的前两位数字是沟通的；乙说：牌照的后两位数字是沟通的，但与前两位差异； 丙是数学家，他说：四位的车号恰好是一个整数的平方。请按照以上线索求出车号。

x=1:9

y=0:9

foo = function(x,y) if(x!=y) x*1000+x*100+y*10+y

k=outer(x,y,foo)

g=sqrt(k)k[which(k%%g==0)]

[1] 7744