Desafio

Reconheça números artísticos ASCII. Para tornar as coisas interessantes, três pontos aleatórios na imagem podem ser invertidos. Por exemplo:

 ***** 
 *  ** 
    ** 

   **  
  **   
 **    

Entrada

Um número de arte ASCII 7x7 gerado pelo script Python abaixo.

Resultado

Um dígito.

Script de teste

Aqui está um script Python (2.6+) para gerar os casos de teste:

import random

digits = '''\
  ***  
 ** ** 
**   **
**   **
**   **
 ** ** 
  ***  

   *   
 ***   
   *   
   *   
   *   
   *   
 ***** 

  ***  
 *  ** 
     * 
    ** 
   **  
  **   
 ******

  ***  
 *  ** 
     * 
  ***  
     * 
 *  ** 
  ***  

   **  
  ***  
 * **  
*  **  
****** 
   **  
   **  

 ***** 
 **    
 ****  
     * 
     * 
 *   * 
  ***  

  **** 
 **    
 ***** 
 *   * 
 **  **
 **  * 
  **** 

 ***** 
    ** 
    ** 
   **  
   **  
  **   
 **    

  **** 
 **  **
 **  **
  **** 
 **  **
 **  **
  **** 

  ***  
 ** ** 
**   **
 **  * 
  **** 
    ** 
 ****  '''.split('\n\n')

def speckle(image, num_speckles):
    grid = [list(row) for row in image.split('\n')]

    for i in range(num_speckles):
        row = random.choice(grid)
        row[random.randint(0, 6)] = random.choice([' ', '*'])

    return '\n'.join([''.join(row) for row in grid])

digit = random.choice(digits)

print(speckle(digit, 3))

APL ( 87 85)

1-⍨⊃⍒(,↑{7↑'*'=⍞}¨⍳7)∘(+.=)¨{49↑,(16/2)⊤⎕UCS⍵}¨↓10 3⍴'嵝䍝뫂傁ဣ␋䠁䊫낫䢝䊅넂垵僡ᑨ嘙쐅嘹䜝䪀슪퀪岹亝尵䌧뮢'

Explicação:

Cada número ASCII possível é codificado em 48 bits. (O 49º bit é sempre zero de qualquer maneira). A cadeia 嵝䍝뫂傁ဣ␋䠁䊫낫䢝䊅넂垵僡ᑨ嘙쐅嘹䜝䪀슪퀪岹亝尵䌧뮢possui três caracteres por número ASCII, cada um dos quais codifica 16 bits.

• ↓10 3⍴: divida a sequência de dados em 10 grupos de 3 caracteres, cada um dos quais codifica um número.
• {... }¨: para cada um dos grupos:
  • (16/2)⊤⎕UCS⍵: obtenha os primeiros 16 bits de cada um dos três caracteres
  • ,: concatenar as matrizes de bits em uma matriz
  • 49↑: pegue os primeiros 49 elementos. Existem apenas 48, portanto isso equivale a adicionar um0 no final.
• ,↑{7↑'*'=⍞}¨⍳7: leia 7 linhas de 7 caracteres no teclado, faça uma matriz de bits para cada linha em que 1significa que o caractere era a *e junte-as.
• (+.=)¨: para cada dígito possível, calcule quantos bits a entrada tinha em comum com o dígito.
• ⍒: obtenha os índices para uma classificação descendente dessa lista, para que o primeiro item no resultado seja o índice do maior número da lista anterior.
• ⊃: pegue o primeiro item, que é o índice do dígito
• 1-⍨: subtraia um, porque os índices APL são baseados em 1.

Pitão

Tenho certeza de que haverá soluções de OCR, mas a probabilidade de minha precisão ser muito maior.

import difflib as x;r=range;s='2***3**1**1**3****3****3**1**1**3***23*4***6*6*6*6*4*****12***3*2**6*5**4**4**4******2***3*2**6*3***7*2*2**3***23**4***3*1**2*2**2******4**5**21*****2**5****7*6*2*3*3***22****2**5*****2*3*2**2**1**2*3****11*****5**5**4**5**4**4**42****2**2**1**2**2****2**2**1**2**2****12***3**1**1**3**1**2*3****5**2****2'
for c in r(8):s=s.replace(str(c),' '*c)
s=map(''.join,zip(*[iter(s)]*7));a=[raw_input("") for i in r(7)];l=[[x.SequenceMatcher('','|'.join(a),'|'.join(s[i*7:(i+1)*7])).ratio()] for i in r(10)];print l.index(max(l))

Insira uma linha de texto por vez.

Não tenho certeza de uma maneira melhor de lidar com os asteriscos sem aumentar a contagem de caracteres.

JavaScript (ES6), 89

f=n=>(a=1,[a=(a+a^c.charCodeAt())%35 for(c of n)],[4,25,5,16,0,11,32,13,10,1].indexOf(a))

Uso:

> f("  ***  \n *  ** \n     * \n    ** \n   **  \n  **   \n ******")
2

Versão sem golfe:

f = (n) => (
  // Initialize the digit's hash.
  a=1,
  // Hash the digit.
  // 35 is used because the resulting hash is unique for the first ten digits.
  // Moreover, it generates 4 1-digit hashes.
  [a = (a + a ^ c.charCodeAt()) % 35 for(c of n)],
  // Compare the hash to pre-computed digit hash.
  // The matching hash index is the digit.
  [4,25,5,16,0,11,32,13,10,1].indexOf(a)
)

Bash + ImageMagick + tesseract, 316 caracteres

Aqui está uma facada em uma solução de OCR. Porém, não é muito preciso, mesmo ao dizer ao tesseract que temos apenas um caractere e é um dígito. Golfe moderado, mas ainda um pouco legível:

w=0
c()((w=${#2}>w?${#2}:w))
mapfile -c1 -Cc -t l
h=${#l[@]}
{
echo "# ImageMagick pixel enumeration: $w,$h,1,gray"
for y in ${!l[@]};{
for((x=0;x<w;x++));{
[ "${l[$y]:$x:1}" != " " ]
echo "$x,$y: ($?,$?,$?)"
}
}
}|convert txt:- i.png
tesseract i.png o -psm 10 <(echo "tessedit_char_whitelist 0123456789")
cat o.txt

O script recebe a entrada de stdin, para que possamos canalizar a partir do script de teste.

Observe que eu coloquei tee >( cat 1>&2 )no pipeline apenas para que possamos ver o que o script de teste realmente gerou.

Exemplo de saída (esta foi uma execução muito boa, com apenas 1 caracter incorreto de 6):

$ python ./asciitest.py | tee> (cat 1> & 2) | ./scanascii.sh
  ***  
 ** ** 
* **
 ** * 
  **** 
    ***
 ****  
Mecanismo de OCR de fonte aberta Tesseract v3.02 com Leptonica
9

$ python ./asciitest.py | tee> (cat 1> & 2) | ./scanascii.sh
   *   
 ***
   *   
   *   
   *   
   *   
 ***** 
Mecanismo de OCR de fonte aberta Tesseract v3.02 com Leptonica
1

$ python ./asciitest.py | tee> (cat 1> & 2) | ./scanascii.sh
  ***  
 ** ** 
** **
** **
** **
  * ** 
  ***  
Mecanismo de OCR de fonte aberta Tesseract v3.02 com Leptonica
0 0

$ python ./asciitest.py | tee> (cat 1> & 2) | ./scanascii.sh
 ***** 
 **    
 ****  
     * 
     * 
 ** * 
  ***  
Mecanismo de OCR de fonte aberta Tesseract v3.02 com Leptonica
5

$ python ./asciitest.py | tee> (cat 1> & 2) | ./scanascii.sh
  **** 
 **    
 ***** 
 * * 
*** ***
 ** **
  **** 
Mecanismo de OCR de fonte aberta Tesseract v3.02 com Leptonica
5

$ python ./asciitest.py | tee> (cat 1> & 2) | ./scanascii.sh
  ***  
 * ** 
     * 
    ** 
   *** 
  **   
 ******
Mecanismo de OCR de fonte aberta Tesseract v3.02 com Leptonica
2

$ 

LÖVE2D, 560 bytes

t=...;g=love.graphics g.setNewFont(124)g.setBackgroundColor(255,255,255)A=g.newCanvas()B=g.newCanvas()x=1 y=1 g.setColor(255,255,255)g.setCanvas(B)g.clear(0,0,0)for i=1,#t do x=x+1 if t:sub(i,i)=="\n"then x=1 y=y+1 end if t:sub(i,i)=="*"then g.rectangle("fill",x*16,y*16,16,16)end end u=B:newImageData()g.setCanvas(A)S={}for i=0,9 do g.clear(0,0,0,0)g.print(i,48,0)r=A:newImageData()s={i=i,s=0}for x=0,16*8 do for y=0,16*8 do a=u:getPixel(x,y)b=r:getPixel(x,y)s.s=s.s+math.abs(a-b)end end S[i+1]=s end table.sort(S,function(a,b)return a.s<b.s end)print(S[1].i)

Primeiro, desenha uma representação em bloco do texto de entrada; em seguida, para cada número de 0 a 9, sobrepõe um número, verifica quantos pixels semelhantes existem e imprime o número que mais se aproxima. OCR muito básico. Ele corresponde a todos os casos de teste e funciona razoavelmente bem com mutações.

Ligue para:

love.exe "" "INPUT"