Localizador de número de quarto

Encontrei uma técnica interessante para resolver problemas no meu trabalho quando recebi o número errado da sala de um colega para uma reunião. De vez em quando, a caminho de uma reunião, um membro da minha equipe me envia o número da sala errado, geralmente porque está com pressa na mesa e com o dedo gordo na tecla errada.

Curiosamente, ao chegar na sala errada, normalmente posso adivinhar qual sala eles realmente queriam imaginar imaginando um teclado numérico :

e adivinhando um número adjacente, eles pretendiam pressionar.

Desafio

Seu desafio é escrever uma função que use um número de escritório (000-999) e produza as possíveis soluções de erros de digitação, assumindo que seu colega digita incorretamente apenas um dígito.

A tabela a seguir mostra quais números são adjacentes um ao outro em um teclado numérico:

0 -> 1,2
1 -> 0,2,4
2 -> 0,1,3,5
3 -> 2,6
4 -> 1,5,7
5 -> 2,4,6,8
6 -> 3,5,9
7 -> 4,8
8 -> 5,7,9
9 -> 6,8

Entrada

Um número de 3 dígitos: 000-999. Suponha a entrada de exatamente 3 dígitos. Se o número for menor que 100 ou menor que 10, você receberá os zeros à esquerda. (ou seja, 004 e 028).

Saída

Uma lista de quartos possíveis. Pode ser da forma que você quiser, desde que exista um delimitador entre os números dos quartos. (ou seja, espaço, vírgula, nova linha, etc.) Se o número for menor que 100 ou menor que 10, você poderá ou não ter os zeros à esquerda como saída, isso depende de você. (ou seja, 004 pode ser 004 04 4e 028 pode ser 028 28)

Casos de teste (zeros à esquerda são opcionais):

008 -> 108, 208, 018, 028, 005, 007, 009 
123 -> 023, 223, 423, 103, 113, 133, 153, 122, 126
585 -> 285, 485, 685, 885, 555, 575, 595, 582, 584, 586, 588
777 -> 477, 877, 747, 787, 774, 778
963 -> 663, 863, 933, 953, 993, 962, 966
555 -> 255, 455, 655, 855, 525, 545, 565, 585, 552, 554, 556, 558

Isso é código-golfe , portanto o código mais curto em bytes para cada idioma vence.

Wolfram Language (Mathematica) , 112 106 bytes

Reconhecendo que um teclado numérico é basicamente um 3x3 GridGraphcom arestas adicionadas para 0, obtemos os dígitos adjacentes para cada dígito de entrada com AdjacencyList.

Isso pode ser visto abaixo:

EdgeAdd[GridGraph[{3,3},VertexLabels->"Name",GraphLayout->"SpringEmbedding"],{0<->1,0<->2}] rendimentos:

Então eu costumo Tuplesdescobrir todos os erros possíveis e escolher aqueles com exatamente um erro com Selecte EditDistance. A propósito, isso funcionará para números de sala mais longos e você também pode aumentar o EditDistanceparâmetro para permitir mais de um erro. Pode ser capaz de jogar isso um pouco mais longe, mas queria mostrar minha abordagem.

h@u_:=Select[Tuples[AdjacencyList[EdgeAdd[GridGraph[{3,3}],{0<->1,0<->2}],#]~Join~{#}&/@u],#~EditDistance~u==1&]

Versão ligeiramente mais golfe codificada para o comprimento de 3 números de quarto (106 bytes). Isso será exibido como uma lista de classificação 3 correspondente a cada dígito:

Thread/@ReplacePart[#~Table~3,{i_,i_}:>(AdjacencyList[GridGraph@{3,3}~EdgeAdd~{0<->1,0<->2},#]&/@#)[[i]]]&

Experimente online!

Python 2 , 89 bytes

lambda r:[r[:i]+[c]+r[i+1:]for i,n in enumerate(r)for c in`ord(u'ÌЋ>তŧ0ɃD'[n])`]

Experimente online!

O 1 ^st e 5 ^th caracteres podem não ser exibidos aqui (navegador dependente), mas a cadeia completa é equivalente a[21, 204, 1035, 62, 157, 2468, 359, 48, 579, 68]

05AB1E , 29 bytes

v•4TË\ªye-³—Ïʒ••Ćδn¼•S£yèʒNǝ,

Experimente online!

R , 190 bytes

function(x){l=list(c(1,2),c(0,2,4),c(0,1,3,5),c(2,6),c(1,5,7),c(2,4,6,8),c(3,5,9),c(4,8),c(5,7,9),c(6,8))
a=do.call(expand.grid, mapply(c,l[x+1],x))
a[apply(a,1,function(y){sum(x==y)==2}),]}

Experimente online!

Minha segunda tentativa no CodeGolf! Bastante longo, 190 bytes, mas o melhor que pude gerenciar com R. Curioso para ver se os outros têm feedback ou podem fazer melhor!

JavaScript (Firefox 30-57), 115 109 bytes

f=([c,...a],p=``)=>c?[...(for(n of``+[12,240,1350,26,157,2468,359,48,579,68][c])p+n+a.join``),...f(a,p+c)]:[]

Editar: salvou 6 bytes graças a @ edc65 (embora os 0s sugeridos agora apareçam após outras sugestões). Versão ES6, 118 112 bytes:

f=([c,...a],p=``)=>c?[...[...``+[12,240,1350,26,157,2468,359,48,579,68][c]].map(n=>p+n+a.join``),...f(a,p+c)]:[]

<input oninput=o.textContent=f(this.value).join`\n`><pre id=o>

Java, 205 177 bytes

b->{for(int c=0;c<3;c++){char[]d=b.toCharArray();for(char e:"12,024,0135,26,157,2468,359,48,579,68".split(",")[new Byte(""+d[c])].toCharArray()){d[c]=e;System.out.println(d);}}}

Eu sei que é longo comparado com as outras respostas. Minha desculpa: é em Java.
Oracle deve renomear toCharArraypara algo como getCrs.

Créditos

-28 caracteres de Kevin Cruijssen

Ruby 97 bytes

->i{c=0;i.map{|j|[12,204,1035,26,157,2468,359,48,579,68][j].digits.map{|k|f=*i;f[c]=k;p f};c+=1}}

Experimente online!

Como alternativa, 94 caracteres, mas 100 bytes

->i{c=0;i.map{|j|"\fÌЋ\u001A\u009Dতŧ0ɃD".unpack("U*")[j].digits.map{|k|f=*i;f[c]=k;p f};c+=1}}

Experimente online!

C (gcc) , 136 ou 114 bytes

Versão ASCII 136 bytes

m[]={12,240,1350,26,157,2468,359,48,579,68},p,i,X=10;f(n){for(i=100;i;i/=X)for(p=m[n/i%X];p;p/=X)printf("%d ",n/(i*X)*(i*X)+p%X*i+n%i);}

Experimente online!

Unicode 114 108 bytes (o TiO parece contar estranhamente para isso)

Obrigado a @ceilingcat para esta versão.

p,i,X=10;f(n){for(i=1e3;i/=X;)for(p=L"\fðՆ\32\x9dতŧ0ɃD"[n/i%X];p;p/=X)printf("%d ",n/i/X*i*X+p%X*i+n%i);}

Experimente online!

Perl 5 , 120 85 + 2 ( -F) = 87 bytes

map{@,=@F;$,[$i]=$_,say@,for(12,240,1350,26,157,2468,359,48,579,68)[$_]=~/./g;$i++}@F

Experimente online!

Economizou 35 bytes emprestando uma idéia da resposta ruby ​​de @ AsoneTuhid.

Python 2 , 103 bytes

graças a @Lynn por -4 bytes.

lambda n:{n[:i]+r+n[i+1:]for i,v in enumerate(n)for r in`0x134cd9a07d1e58feab643f7db24102`[int(v)::10]}

Experimente online!

Julia 0.6 , 93 bytes

~r=[(R=copy(r);R[j]=i;R)for i=0:9,j=1:3 if(big(1)<<(i+10r[j]))&0x502A044228550A21102B05406>0]

Experimente online!

• Pega um vetor de dígitos e retorna uma lista no mesmo formato.
• 0x502A044228550A21102B05406é UInt128aquele em que o 1+10jth bit é definido se iestiver ao lado jdo teclado numérico.
• big(1)é um BigInt. É usado para impedir o estouro e usa menos caracteres que Int128(1)ou UInt128(1).

SQL (SQLite), 533 bytes

with m as (select 0 as i, 1 as o union values (0,2),(1,0),(1,2),(1,4),(2,0),(2,1),(2,3),(2,5),(3,2),(3,6),(4,1),(4,5),(4,7),(5,2),(5,4),(5,6),(5,8),(6,3),(6,5),(6,9),(7,4),(7,8),(8,5),(8,7),(8,9),(9,6),(9,8))select o || substr('008', 2, 1) || substr('008', 3, 1)from m where substr('008', 1, 1) = cast(i as text)union select substr('008', 1, 1) || o || substr('008', 3, 1)from m where substr('008', 2, 1) = cast(i as text)union select substr('008', 1, 1) || substr('008', 2, 1) || o from m where substr('008', 3, 1) = cast(i as text)

Ungolfed

with m as (
    select 0 as i, 1 as o
    union
    values
    /*(0,1),*/(0,2),
    (1,0),(1,2),(1,4),
    (2,0),(2,1),(2,3),(2,5),
    (3,2),(3,6),
    (4,1),(4,5),(4,7),
    (5,2),(5,4),(5,6),(5,8),
    (6,3),(6,5),(6,9),
    (7,4),(7,8),
    (8,5),(8,7),(8,9),
    (9,6),(9,8)
)
select o || substr(s, 2, 1) || substr(s, 3, 1)
from m, t
where substr(s, 1, 1) = cast(i as text)
union
select substr(s, 1, 1) || o || substr(s, 3, 1)
from m, t
where substr(s, 2, 1) = cast(i as text)
union
select substr(s, 1, 1) || substr(s, 2, 1) || o
from m, t
where substr(s, 3, 1) = cast(i as text)

Explicação

A entrada é uma única linha de texto na tabela tcom coluna s. Meu entendimento é que, de acordo com essa meta resposta, essa é uma forma aceitável de entrada. A entrada pode ser criada como abaixo.

drop table if exists t;
create table t (s text);
insert into t values('555'); -- Your input here

Solução anotada

with m as ( -- Using this in the "with" allows us to only type is once
    select 0 as i, 1 as o -- The first pair is here and it names the columns
    union
    values
    /*(0,1),*/(0,2),
    (1,0),(1,2),(1,4),
    (2,0),(2,1),(2,3),(2,5),
    (3,2),(3,6),
    (4,1),(4,5),(4,7),
    (5,2),(5,4),(5,6),(5,8),
    (6,3),(6,5),(6,9),
    (7,4),(7,8),
    (8,5),(8,7),(8,9),
    (9,6),(9,8)
)
select o || substr(s, 2, 1) || substr(s, 3, 1) -- concat the first wrong char with two correct chars
from m, t
where substr(s, 1, 1) = cast(i as text) -- when the first char is in the i (input) column from above
union
select substr(s, 1, 1) || o || substr(s, 3, 1)
from m, t
where substr(s, 2, 1) = cast(i as text)
union
select substr(s, 1, 1) || substr(s, 2, 1) || o
from m, t
where substr(s, 3, 1) = cast(i as text)

Kotlin , 117 bytes

mapIndexed{i,c->"12,024,0135,26,157,2468,359,48,579,68".split(",")[c-'0'].map{replaceRange(i,i+1,it+"")}}.flatMap{it}

Embelezado

mapIndexed { i, c ->
    "12,024,0135,26,157,2468,359,48,579,68"
        .split(",")[c - '0']
        .map { replaceRange(i, i + 1, it + "") }
}.flatMap { it }

Teste

fun String.f(): List<String> =
mapIndexed{i,c->"12,024,0135,26,157,2468,359,48,579,68".split(",")[c-'0'].map{replaceRange(i,i+1,it+"")}}.flatMap{it}

data class Test(val input:Int, val answers: List<Int>)

val tests = listOf(
    Test(8, listOf(108, 208, 18, 28, 5, 7, 9)),
    Test(123, listOf(23, 223, 423, 103, 113, 133, 153, 122, 126)),
    Test(585, listOf(285, 485, 685, 885, 555, 575, 595, 582, 584, 586, 588)),
    Test(777, listOf(477, 877, 747, 787, 774, 778)),
    Test(963, listOf(663, 863, 933, 953, 993, 962, 966)),
    Test(555, listOf(255, 455, 655, 855, 525, 545, 565, 585, 552, 554, 556, 558))
)

fun main(args: Array<String>) {
    for (r in tests) {
        val input = r.input.toString().padStart(3, '0')
        val expected = r.answers.map { it.toString().padStart(3, '0') }.sorted()
        val actual = input.f().sorted()
        if (expected != actual) {
            throw AssertionError("$input -> $actual | $expected")
        }
    }
}

TIO

TryItOnline

Geléia , 35 bytes

ḷþị“-ⱮⱮVḟ|żṣ~ẋ³ɱgẆ’ḃ⁽¦ḳ¤$ṛ¦DŒp$¥"JẎ

Experimente online!

-1 graças a Jonathan Allan .

Explicação sendo atualizada ...

T-SQL , 322 bytes

WITH m AS(SELECT LEFT(value,1)i,RIGHT(value,1)o FROM STRING_SPLIT('01,02,10,12,14,20,21,23,25,32,36,41,45,47,52,54,56,58,63,65,69,74,78,85,87,89,96,98',','))SELECT o+RIGHT(s,2)FROM t,m WHERE i=LEFT(s,1)UNION SELECT LEFT(s,1)+o+RIGHT(s,1)FROM t,m WHERE i=SUBSTRING(s,2,1)UNION SELECT LEFT(s,2)+o FROM t,m WHERE i=RIGHT(s,1)

A entrada é obtida da coluna sde uma tabela de linha única denominada t:

DROP TABLE IF EXISTS t
CREATE TABLE t (s CHAR(3))
INSERT INTO t VALUES('008')

Ungolfed:

WITH m AS (
    SELECT LEFT(value,1) i, RIGHT(value,1) o
    FROM STRING_SPLIT('01,02,10,12,14,20,21,23,25,32,36,41,45,47,52,54,56,58,63,65,69,74,78,85,87,89,96,98',',')
)
SELECT o+RIGHT(s,2) FROM t,m WHERE i=LEFT(s,1)
UNION
SELECT LEFT(s,1)+o+RIGHT(s,1) FROM t,m WHERE i=SUBSTRING(s,2,1)
UNION
SELECT LEFT(s,2)+o FROM t,m WHERE i=RIGHT(s,1)

SQLFiddle