O objetivo desta tarefa é identificar, limpar e marcar todos os rostos em qualquer "imagem".

O que há em um rosto?

Uma face será um quadrado ZxZ onde Z é um número inteiro ímpar maior que 1. Os cantos superiores esquerdo e direito e o centro serão caracteres 'O', e a linha inferior será um '\' e um '/' circundando o suficiente caracteres '_' para preencher o restante da linha. Exemplos:

uma face 3x3:

O O
 O
\_/

uma face 5x5:

O   O

  O

\___/

uma face 7x7:

O     O


   O


\_____/

etc.

Entrada

A entrada estará em STDIN e consistirá em um número de seqüências de caracteres de comprimento igual.

Resultado

A saída deve ser a entrada com todos os rostos reconhecíveis limpos (ou seja, todos os caracteres, exceto os olhos, nariz e boca, devem ser removidos dentro dos limites do rosto) e encaixotados (cercados por caracteres +, - e |). Onde duas ou mais faces se sobrepõem, ambas devem ser limpas e encaixotadas, mas deve ser dada prioridade à face maior (ela deve ser colocada em cima); se as duas faces tiverem o mesmo tamanho, a prioridade será deixada ao critério do implementador. Se a entrada não tiver faces, a saída deve ser a mesma que a entrada.

Alguns exemplos

Entrada:

*******
*******
**O*O**
***O***
**\_/**
*******
*******

Resultado:

*******
*+---+*
*|O O|*
*| O |*
*|\_/|*
*+---+*
*******

Entrada (face incompleta):

*******
*******
**O*O**
*******
**\_/**
*******
*******

Resultado:

*******
*******
**O*O**
*******
**\_/**
*******
*******

Entrada (faces aninhadas):

*******
*O***O*
**O*O**
***O***
**\_/**
*\___/*
*******

Resultado:

+-----+
|O   O|
|     |
|  O  |
|     |
|\___/|
+-----+

Entrada (várias faces):

~{$FJ*TBNFU*YBVEXGY%
FOCO$&N|>ZX}X_PZ<>}+
X$OOPN ^%£)LBU{JJKY%
@\_/$£!SXJ*)KM>>?VKH
SDY%£ILO(+{O:HO(UR$W
XVBFTER^&INLNLO*(&P:
>?LKPO)UJO$£^&L:}~{&
~@?}{)JKOINLM@~}P>OU
:@<L::@\___/GER%^*BI
@{PO{_):<>KNUYT*&G&^

Resultado:

+---+*TBNFU*YBVEXGY%
|O O|&N|>ZX}X_PZ<>}+
| O |N ^%£)LBU{JJKY%
|\_/|£+-----+M>>?VKH
+---+I|O   O|HO(UR$W
XVBFTE|     |LO*(&P:
>?LKPO|  O  |&L:}~{&
~@?}{)|     |@~}P>OU
:@<L::|\___/|ER%^*BI
@{PO{_+-----+YT*&G&^

Entrada (perto do limite):

~{$FJ*TBNFU*YBVEXGY%
OCO$&N|>ZX}X_PZ<>}+^
$OOPN ^%£)LBU{JJKY%{
\_/$£!SXJ*)KM>>?VKHU
SDY%£ILO(+{8:HO(UR$W
XVBFTER^&INLNLO*(&P:
>?LKPO)UJ^$£^&L:}~{&
~@?}{)JKOINLM@~}P>OU
:@<L::@BJYT*GER%^*BI
@{PO{_):<>KNUYT*&G&^

Resultado:

---+J*TBNFU*YBVEXGY%
O O|&N|>ZX}X_PZ<>}+^
 O |N ^%£)LBU{JJKY%{
\_/|£!SXJ*)KM>>?VKHU
---+£ILO(+{8:HO(UR$W
XVBFTER^&INLNLO*(&P:
>?LKPO)UJ^$£^&L:}~{&
~@?}{)JKOINLM@~}P>OU
:@<L::@BJYT*GER%^*BI
@{PO{_):<>KNUYT*&G&^

Entrada (faces sobrepostas):

~{$FJ*TBNFU*YBVEXGY%
FXC£$&N|>ZX}X_PZ<>}+
X$*OPN O%£)LBO{JJKY%
@:U%$£!SXJ*)KM>>?VKH
SDY%£OLO(+{P:HO(UR$W
XVBFTER^&IOLNLO*(&P:
>?L\___/JR$£^&L:}~{&
~@?}{)JKOINLM@~}P>OU
:@<L::@\_____/R%^*BI
@{PO{_):<>KNUYT*&G&^

Resultado:

~{$FJ*TBNFU*YBVEXGY%
FX+---+-------+Z<>}+
X$|O  |O     O|JJKY%
@:|   |       |>?VKH
SD|  O|       |(UR$W
XV|   |   O   |*(&P:
>?|\__|       |:}~{&
~@+---|       |}P>OU
:@<L::|\_____/|%^*BI
@{PO{_+-------+*&G&^

Ruby, 304 298 295 caracteres

I=$<.read
q=(O=I*s=1).size
k=??+O=~/$/
o=->m,n{n.chars{|c|(m+=1)*(m%k)>0&&m<q&&O[m-1]=c}}
q.times{f=[[?\\+?_*s+?/,k*s+=1],[?O,0],[?O,s],[?O,(s+=1)/2*(1+k)]]
q.times{|x|f.all?{|a,b|I[x+b,a.size]==a}&&(o[x+k*s-1,o[x-k-1,?++?-*s+?+]]
s.times{|a|o[x+k*a-1,?|+' '*s+?|]}
f.map{|a,b|o[x+b,a]})}}
$><<O

O canto inferior direito é preferido na sobreposição se as faces tiverem o mesmo tamanho. Por exemplo, para a entrada

O.OO.O
.O..O.
\_/\_/
O.OO.O
.O..O.
\_/\_/

reconhece todas as quatro faces e produz

O |O O
 O| O
--+---
O |O O
 O| O
\_|\_/

Edit 1: Como Lowjacker propôs, podemos substituir o indexpor uma correspondência de regex (-3 caracteres). Além disso, ele +1pode ser compensado por um caractere adicional antes da correspondência, o que salva outro caractere (-2 para o caractere +1+3 para caractere simulado, -2 porque colchetes não são mais necessários). Mais dois, já que podemos escrever o intervalo também sem colchetes.

Editar 2: Outros dois caracteres salvos substituindo ambos ifpor &&e outro removendo completamente o intervalo.

Python - 1199 941

Achei o problema bastante interessante, então resolvi em Python. Aqui está o código compactado.

#!/usr/bin/env python
import fileinput,sys
m=[[c for c in l if c!='\n'] for l in fileinput.input()]
X=len(m[0])
Y=len(m)
t=[]
for n in range(3,min(X,Y)+1,2):
  for x in range(X-n+1):
    for y in range(Y-n+1):
      if m[y][x]=='O' and m[y][x+n-1]=='O' and m[y+(n//2)][x+(n//2)]=='O' and m[y+n-1][x]=='\\' and m[y+n-1][x+n-1]=='/' and "".join(m[y+n-1][x+1:x+n-1])=='_'*(n-2):
        t.append((x,y,n))
for x,y,n in t:
  def a(v,h,c):
    w=x+h; z=y+v;
    if z>=0 and z<len(m):
      if w>=0 and w<len(m[y]):
        m[z][w]=c
  for v in range(n):
    for h in range(n): 
      a(v,h,' ')
  a(0,0,'O')
  a(0,n-1,'O')
  a(n/2,n/2,'O')
  a(n-1,0,'\\')
  a(n-1,n-1,'/')
  for w in range(1,n-1):
    a(n-1,w,'_')
  for v in [-1,n]:
    for h in range(n):
      a(v,h,'-')
  for h in [-1,n]:
    for v in range(n):
      a(v,h,'|')
  a(-1,-1,'+')
  a(-1,n,'+')
  a(n,-1,'+')
  a(n,n,'+')
for l in m:
  for c in l:
    sys.stdout.write(c)
  print

Aqui está o código mais legível:

#!/usr/bin/env python

import fileinput, sys

matrix = [[c for c in l if c != '\n'] for l in fileinput.input()]

max_X = len(matrix[0])
max_Y = len(matrix)

tuples = []
for n in range(3, min(max_X, max_Y)+1, 2):
  for x in range(max_X-n+1):
    for y in range(max_Y-n+1):
      # if is_face(matrix, x, y, n):
      if matrix[y][x] == 'O' and matrix[y][x+n-1] == 'O' and matrix[y+(n//2)][x+(n//2)] == 'O' and matrix[y+n-1][x] == '\\' and matrix[y+n-1][x+n-1] == '/' and "".join(matrix[y+n-1][x+1:x+n-1]) == '_'*(n-2) :
        tuples.append((x, y, n))

for x,y,n in tuples:
  # blank_and_border(matrix,x,y,n)
  def assign(dy, dx, c):
    xx = x + dx; yy = y + dy;
    if yy >= 0 and yy < len(matrix) :
      if xx >= 0 and xx < len(matrix[y]) :
        matrix[yy][xx] = c

  # blank
  for dy in range(n):
    for dx in range(n): 
      assign(dy, dx, ' ')

  # face
  assign(0, 0, 'O')
  assign(0, n-1, 'O')
  assign(n/2, n/2, 'O')
  assign(n-1, 0, '\\')
  assign(n-1, n-1, '/')
  for w in range(1,n-1):
    assign(n-1, w, '_')

  # border
  for dy in [-1,n]:
    for dx in range(n):
      assign(dy, dx, '-')

  for dx in [-1,n]:
    for dy in range(n):
      assign(dy, dx, '|')

  assign(-1, -1, '+')
  assign(-1,  n, '+')
  assign( n, -1, '+')
  assign( n,  n, '+')

for l in matrix:
  for c in l:
    sys.stdout.write(c)
  print