Buscando a Wally usando Mathematica

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]]  

Primero carga la imagen de la URL usada en la primera linea “Import”, filtra los colores menos el rojo y luego la compara con un patrón en blanco y negro para encontrar la camiseta de Wally. Puedes probar con otras imágenes cambiando sólo la dirección URL (no funciona en todas, pero es una buena solución).

Más información en el blog CódigoGeek. Como bien dicen allí, lo importante no es el hecho de encontrar a Wally, es mostrar la potencia de este programa con unas pocas líneas de código.

¿Tienes alguna solución mejor?