
En la fantástica web de CódigoGeek, hemos visto esta entrada donde hablan de cómo encontrar a Wally usando un programa realizado para el conocido Mathematica de Wolfram.
Todo empieza en StackOverflow, y luego en el blog matemáticos Gaussianos aparece el siguiente código como una posible solución (el lenguaje usado por Mathematica es propio, aquí tienes un manual pdf para aprender a programar en Mathematica):
waldo = Import["http://www.findwaldo.com/fankit/graphics/IntlManOfLiterature
/Scenes/DepartmentStore.jpg"];
red = Fold[ImageSubtract, #[[1]], Rest[#]] &@ColorSeparate[waldo];
corr = ImageCorrelate[red,Image@Join[ConstantArray[1, {2, 4}], ConstantArray[0, {2, 4}]],NormalizedSquaredEuclideanDistance];
pos = Dilation[ColorNegate[Binarize[corr, .12]], DiskMatrix[30]];
found = ImageMultiply[waldo, ImageAdd[ColorConvert[pos, “GrayLevel”], .5]]