Vous avez peut-être vu des puzzles comme celui-ci:

Trouvez le 0:
OOOOOOOOOOOOOOOOOOOO0OOOOOOOOOOOOOOOOOO

Le défi est d'écrire un programme qui trouve l'index des différentes lettres à partir d'une image.

Contribution

L'entrée sera un Image. L'image consistera en une ligne de texte noir dans le Helvetica 24 pt. police sur fond blanc . Le texte sera composé d'une sélection de deux caractères: un caractère qui est répété et un caractère qui n'apparaît qu'une seule fois. Par exemple:

Production

La sortie sera un Integer, l'index du caractère différent. Dans l'exemple ci-dessus, la sortie sera 4. (Notez que les indices d'une chaîne commencent à 0)

Spécifications du programme

Comme d'habitude pour le golf à code, le programme le plus court gagne.

Cas de test

=> 10
=> 11
=> 5
=> 16
=> 10
=> 21
=> 20
=> 13
=> 11
=> 4
=> 7

Dyalog APL , 31 32 octets

{1⍳⍨+⌿∘.≡⍨{⍵/⍨~∧⌿⍵}¨⍵⊂⍨2>/∧⌿1,⍵}

⎕IO←0 pour obtenir des indices commençant par 0 (par OP), et qui est de toute façon par défaut dans de nombreux systèmes APL.

1,⍵ajouter une colonne de pixels blancs (pour garantir la marge)
∧⌿booléenne pour chaque colonne si tout blanc (réduction ET verticale)
2>/booléen au bord gauche de chaque caractère (par paire supérieur à)
⍵⊂⍨divisé en blocs commençant à chaque VRAI.
{… }¨Pour chaque bloc
∧⌿⍵booléen pour chaque colonne si les colonnes tout blanc (vertical ET-réduction)
⍵/⍨~qui ne sont pas [tout blanc]
∘.≡⍨correspondent à chaque élément à tous les éléments
+⌿nombre de blocs identique à chaque bloc (vertical plus-réduction)
1⍳⍨index du premier (ie élément unique)

Suppose que l'image est Icomposée de pixels noirs (0) et blancs (1) dans la matrice et qu'il existe au moins une colonne de pixels entièrement blancs entre les caractères.

      f←{1⍳⍨+⌿∘.≡⍨{⍵/⍨~∧⌿⍵}¨⍵⊂⍨2>/∧⌿1,⍵}

"!JE!!":

      ⊢I←6 12⍴(13/1),(22⍴0 1 1),(5/1),0,(8/1),(10⍴0 1 1),13/1
1 1 1 1 1 1 1 1 1 1 1 1
1 0 1 1 0 1 1 0 1 1 0 1
1 0 1 1 0 1 1 0 1 1 0 1
1 1 1 1 0 1 1 1 1 1 1 1
1 0 1 1 0 1 1 0 1 1 0 1
1 1 1 1 1 1 1 1 1 1 1 1
      f I
1

"mmnmm":

      ⊢I←7 31⍴(94/1),0 0,(∊0 1⌽¨2/⊂12⍴6↑1 0 1 1),0 1,(62⍴1 1 1,(⊢,⌽)(14⍴0 1)),33/1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 0 0 1 0 1 1 0 0 1 0 1 1 0 0 0 1 1 0 0 1 0 1 1 0 0 1 0 1 1 1
1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1
1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1     
      f I
2

Mathematica, 125 octets

StringCases[#,x:Except[StringCases[#~StringTake~3,x_~~___~~x_:>x][[1]]]:>Position[Characters@#,x]][[1,1,1]]-1&@*TextRecognize

Ahh, Mathemeatica a intégré. Tellement incroyable. (Et si longtemps ...) explose | /! : /; , /. `/ 'et explose différemment sur m / n.

Mathematica, 46 octets

Length@First@Split@Characters@TextRecognize@#& 

Mêmes défaillances que l'autre solution mathématique car elle repose sur la même TextRecognizefonction.