Imprima esta placa do jogo da velha!


9

Aqui está uma placa do jogo da velha:

   a     b     c
      |     |     
1  -  |  -  |  -  
 _____|_____|_____
      |     |     
2  -  |  -  |  -  
 _____|_____|_____
      |     |     
3  -  |  -  |  -  
      |     |     

Dado um conjunto de movimentos, imprima o quadro com as fichas ativadas.

A entrada será recebida como movimentos separados por espaços, sendo cada movimento:

  • Primeiro, o token que está indo
  • Em seguida, a letra da coluna que está sendo movida
  • Por último, o número da linha em que está passando

Observe que regras normais do jogo da velha não importam.

Além disso, não há necessidade de imprimir as letras e os números.

Por exemplo, a entrada Ob2 Xc2 Ob3 Xa1resultaria em

     |     |     
  X  |  -  |  -  
_____|_____|_____
     |     |     
  -  |  O  |  X  
_____|_____|_____
     |     |     
  -  |  O  |  -  
     |     |     

Lembre-se de que isso é , portanto o código com o menor número de bytes vence.

Classificação

Aqui está um snippet de pilha para gerar uma classificação regular e uma visão geral dos vencedores por idioma.

Para garantir que sua resposta seja exibida, inicie-a com um título, usando o seguinte modelo de remarcação:

# Language Name, N bytes

onde Nestá o tamanho do seu envio. Se você melhorar sua pontuação, poderá manter as pontuações antigas no título, identificando-as. Por exemplo:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Se você quiser incluir vários números no cabeçalho (por exemplo, porque sua pontuação é a soma de dois arquivos ou você deseja listar as penalidades do sinalizador de intérpretes separadamente), verifique se a pontuação real é o último número no cabeçalho:

# Perl, 43 + 2 (-p flag) = 45 bytes

Você também pode transformar o nome do idioma em um link que será exibido no snippet do placar de líderes:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes


Uma coisa a evitar com os desafios de gravação são os formatos de E / S complicados . Por favor, faça o seu formato de entrada flexível o suficiente. Da próxima vez, tente a Sandbox .
Erik the Outgolfer

11
@EriktheGolfer complicado? Este formato de entrada é simples e óbvio
edc65

@ edc65 Eu quis dizer isso, quero receber entradas em qualquer formato, não apenas este, mas acho que já é tarde. Acho que você quer dizer que é visualmente claro, mas não consegui lidar com isso. Por que espaços e não algum outro separador, por exemplo?
Erik the Outgolfer

11
@EriktheGolfer não me leve a mal, mas se sua linguagem esotérica super extra não puder lidar com espaços em branco, muito ruim ... você terá que usar outra coisa dessa vez.
Edc65

11
@ edc65 Por exemplo, no Sesos seria muito difícil carregar os dados de entrada. Eu preferiria uma lista de números inteiros (três polegadas para um movimento), como 1 2 3para Xb3(não precisa ser exatamente isso).
Erik the Outgolfer

Respostas:


7

JavaScript (ES6), 136 133 129 bytes

let f =

i=>eval("for(y=9,s='';y--;s+=`\n`)for(x=18;--x;)s+=x%6-3|y%3-1?' __|'[x%6?y/3:3]||' ':i[i.search('cba'[x/6|0]+(10-y)/3)-1]||'-'")

console.log(f("Ob2 Xc2 Ob3 Xa1"))


5

Python (2.7), 188 180 bytes

def f(s):a,b=3*[' '*5],3*['_'*5];c,d,e=[['  '+dict((m[1:],m[0])for m in s.split(' ')).get(x+y,'-')+'  'for x in'abc']for y in'123'];print'\n'.join(map('|'.join,[a,c,b,a,d,b,a,e,a]))

Na terceira linha, você pode remover os espaços antes de 's
Daniel

Bem-vindo ao golfe python! Dê uma olhada nas dicas de golfe do Python . Você pode separar as instruções ;permitindo que você coloque todo o seu código em uma linha para economizar no recuo.
Xnor

for y in '123'-> for y in'123'. Além disso, o que o xnor disse: você pode transformar sua função em uma linha, usando ;para separar instruções. Usando todas essas dicas de golfe, você pode jogar golfe com 6 bytes.
Erik the Outgolfer

4

Python 2, 112 bytes

s=input()+'- '
r=3;exec"print'|'.join([' '*5,'  %s  '%s[s.find(c+`r/3`)-1],'_'*5][r%11%3]for c in'abc');r+=1;"*9

Nove linhas são impressas correspondendo aos índices de linha r. O índice da linha é contado de 3até 11em um execloop. Cada linha consiste em linhas verticais que |unem três segmentos de 5 caracteres que alternam entre:

  • Cinco espaços
  • Dois espaços, um símbolo de jogador, depois dois espaços
  • Cinco sublinhados

O tipo é feito para alternar com r%3, exceto que a última linha possui espaços em vez de sublinhados, alcançados com r%11%3.

Para encontrar o símbolo do jogador para a célula atual, observamos o número da linha r/3e a letra cda coluna de "abc". Nós as concatenamos para criar uma sequência de dois caracteres b3, encontrar o índice na sequência de entrada e pegar o símbolo ( Xou O) um índice anteriormente. Se nenhum dos jogadores jogou lá, o findpadrão será o -1que diminui para -2. Nós cortar s[-2]a ser -anexando dois personagens quando tomamos entrada.


1

PHP, 187 bytes

<?for(;$i++<162;)$s.=$i%18?($i%6?($i<144&&$i%54>36?"_":($i<144&&$i%54>18&&$i%6==3?"-":" ")):"|"):"\n";foreach(explode(" ",$_GET[a])as$t)$s[20+6*(1+($t[1]<=>b))+54*($t[2]-1)]=$t[0];echo$s;

Pega a entrada como string. Se eu pudesse usar uma matriz, ela pode ser reduzida para, em $_GET[a]vez deexplode(" ",$_GET[a])

207 bytes

<?foreach(explode(" ",$_GET[a])as$t)$a[(1+($t[1]<=>b))+3*($t[2]-1)]=$t[0];for(;$i++<162;)$s.=$i%18?($i%6?($i<144&&$i%54>36?"_":" "):"|"):"\n";for(;$x<9;)$s[18+54*(($x/3)^0)+2+6*($x%3)]=$a[+$x++]??"-";echo$s;

A ideia mais simples de criar esses 194 bytes

<?for(;++$i<10;)$s.=($i==9||$i%3?($i%3==2?"  -  |  -  |  -  ":"     |     |     "):"_____|_____|_____")."\n";foreach(explode(" ",$_GET[a])as$t)$s[20+6*(1+($t[1]<=>b))+54*($t[2]-1)]=$t[0];echo$s;

1

Mathematica, 205 bytes

StringReplacePart[a="     |     |     
";b="  -  |  -  |  -  
";c="_____|_____|_____
";{a,b,c,a,b,c,a,b,a}<>"",##]&@@Transpose[{#,{#,#}&[54LetterNumber@#2+6FromDigits@#3-39]}&@@@Characters/@StringSplit@#]&

Isso seria bem mais curto se eu pudesse usar o built-in ... (92 bytes)

Grid@SparseArray[{LetterNumber@#2,FromDigits@#3}->#&@@@Characters/@StringSplit@#,{3,3},"-"]&

1

Java, 138 bytes

Editar:

  • -2 bytes desativados. Obrigado a @Kevin Kruijssen

Snipet:

m->{char[][]o=new char[3][3];for(char[]a:m)o[a[1]-'a'][a[2]-'0']=a[0];for(char[]a:o)System.out.println(a[0]+'|'+a[1]+'|'+a[2]+"\n-----");}

Código:

public static void tictactoe(char[][]moves){
  char[][]o=new char[3][3];
  for(char[]a:moves){
    o[a[1]-79][a[2]-48]=a[0];
  }
  for(char[]a:o){
    System.out.println(a[0]+'|'+a[1]+'|'+a[2]+"\n-----");
  }
}

o[a[1]-'a'][a[2]-'0']=a[0]pode ser jogado por dois bytes parao[a[1]-97][a[2]-48]=a[0]
Kevin Cruijssen 10/10

mas se é a saída errada, não é?
Norganos 11/10

Qual erro você quer dizer?
Roman Gräf 11/11

O formato de saída não é o mesmo solicitado pelo OP.
seshoumara

1

Lote, 341 339 305 287 bytes

@for %%a in (a1 a2 a3 b1 b2 b3 c1 c2 c3)do @set %%a=-
@for %%a in (%*)do @set s=%%a&call call set %%s:~1%%=%%s:~0,1%%
@set s="     |     |     "
@for %%l in (%s% "  %a1%  |  %b1%  |  %c1%" %s: =_% %s% "  %a2%  |  %b2%  |  %c2%" %s: =_% %s% "  %a3%  |  %b3%  |  %c3%" %s%)do @echo %%~l

Assume saída consistente. Editar: salvou 2 bytes removendo espaços desnecessários. Economizou 34 bytes escrevendo a saída usando um forloop. Salva 18 bytes, eliminando a sub-rotina.


0

Autovim , 110 bytes (não competindo)

Teste a condução do Autovim ... Essa é praticamente uma resposta do Vimscript. Não competindo porque o Autovim ainda está sendo desenvolvido.

ñ5i ␛a|␛ÿp3hr-phv0r_⌥v$kkyPPy2jPP$⌥vG$xGđkÿjp
…nsplit(@m)
ñğ0(@n[2]*3-2)j((char2nr(@n[1])-96)*6-4)lr(@n[0])
e…

Para executá-lo:

./bin/autovim run tictactoe.autovim -ni -@m "Ob2 Xc2 Ob3 Xa1"

Ungolfed:

execute "normal 5i \<esc>a|\<esc>yyp3hr-phv0r_\<c-v>$kkyPPy2jPP$\<c-v>G$xGddkyyjp"
for @n in split(@m)
execute "normal gg0".(@n[2]*3-2)."j".((char2nr(@n[1])-96)*6-4)."lr".(@n[0]).""
endfor

Explicação a seguir se houver interesse :)


0

Groovy, 174 bytes

{s->def r=0,o,t=[:];s.split(' ').each{t[it[1..2]]=it[0]};9.times{y->o='';17.times{x->o+=x%6==5?'|':y in [2,5]?'_':x%6==2&&y%3==1?t['abc'[r++%3]+(y+2)/3]?:'-':' '};println o}}

ungolfed:

{s->
    def r=0, o, t=[:];
    s.split(' ').each{
        t[it[1..2]]=it[0]
    };
    9.times{y->
        o='';
        17.times{x->
            o+= x%6==5 ? '|' : y in [2,5]? '_' : x%6==2 && y%3==1 ? t['abc'[r++%3]+(y+2)/3]?:'-' : ' '
        };
        println o
    }
}

0

CJam, 62 bytes

" -_ -_ - "_'-Ser_+_@\]3*sqS/{)~\)'a-F*@+3*G+\t}/9/5/'|9*a*zN*

Experimente online

Explicação:

" -_ -_ - "_'-Ser_+_@\]3*s e# Build a 135 character string representing the 
                           e# columns of the board (top to bottom, left to right)
qS/{)~\)'a-F*@+3*G+\t}/    e# Process the input, put the tokens (O,X) in the string
                           e# The tokens have to placed at indexes 
                           e# [19 22 25 64 67 70 109 112 115]
                           e# This is done with the formula 3*(15x+y)+16,
                           e# where x is the code point of the column letter 
                           e# (minus 'a') and y is the row number.
9/5/'|9*a*zN*              e# Split into its parts, add the column separators, zip 
                           e# and join with newlines.
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.