Para este desafío, imprimirá las coordenadas y el color de cada pieza al comienzo de un juego de damas.

Ingrese x e y (separados por comas) para cada cuadrado (indexado 0-7) en un tablero de ajedrez, seguido de una "r" o "b" (para rojo o negro) donde la parte superior del tablero (más cerca de y = 0 ) es rojo y la parte inferior es negra. Se requieren líneas nuevas entre las piezas y no se necesitan espacios.

Este es el código de golf, por lo que las respuestas se puntúan en bytes, con menos bytes mejor.

Las nuevas líneas finales están permitidas, pero no son necesarias, y el orden debe ser exactamente el siguiente.

Salida deseada:

0,0r
0,2r
0,4r
0,6r
1,1r
1,3r
1,5r
1,7r
2,0r
2,2r
2,4r
2,6r
5,1b
5,3b
5,5b
5,7b
6,0b
6,2b
6,4b
6,6b
7,1b
7,3b
7,5b
7,7b

05AB1E , 26 bytes

2ÝD5+«v4Fy',N·yÉ+„bry3‹èJ,

Pruébalo en línea!

Explicación

2Ý                           # push [0,1,2]
  D5+                        # duplicate and add 5: [5,6,7]
     «                       # concatenate
      v                      # for each y in [0,1,2,5,6,7] do:
       4F                    # for each N in [0 ... 3] do:
         y                   # push y
          ',                 # push ","
            N·yÉ+            # push N*2+isOdd(y)
                 „br         # push "br"
                    y3‹è     # index into the string with y<3
                        J,   # join everything to a string and print

JavaScript (ES6), 66 bytes

Incluye una nueva línea final.

f=(n=24)=>n--?f(n)+[2*(x=n>11)+(y=n>>2),n%4*2+y%2+'rb'[+x]]+`
`:''

Manifestación

f=(n=24)=>n--?f(n)+[2*(x=n>11)+(y=n>>2),n%4*2+y%2+'rb'[+x]]+`
`:''

console.log(f())

Perl 5 , 53 bytes

//&map{say"$',",$_+$'%2,$'<4?r:b}0,2,4,6for 0..2,5..7

Pruébalo en línea!

C (gcc) , 83 81 79 78 bytes

• Guardado dos bytes gracias a Tahg ; golf x/4+2*(x/12)a x/4+x/12*2.
• Ahorró dos bytes gracias a Kevin Cruijssen ; golf x%8*2%8a x*2%8.
• Guardado un byte gracias a ceilingcat .

x;main(){for(;x<24;)printf("%d,%d%c\n",x/4+x++/12*2,x*2%8+x/4%2,114-x/12*16);}

Pruébalo en línea!

Python 2 , 74 73 67 bytes

for i in 0,1,2,5,6,7:j=i%2;exec"print`i`+','+`j`+'rb'[i>4];j+=2;"*4

Pruébalo en línea!

Java 8, 102 96 95 93 91 bytes

v->{for(int i=0;i<24;System.out.printf("%d,%d%c%n",i/4+i/12*2,i*2%8+i/4%2,i++<12?114:98));}

Puerto de la respuesta C de @JonathanFrech , después de lo cual jugué 5 bytes yo mismo.

Pruébalo aquí

Explicación:

v->{                    // Method without empty unused parameter and no return-type
  for(int i=0;i<24;     //  Loop from 0 to 24 (exclusive)
    System.out.printf("%d,%d%c%n",
                        //   Print with format:
                        //   (%d=digit; %c=character; %n=new-line)
      i/4+i/12*2,       //    Print first coordinate
      i*2%8+i/4%2,      //    Print second coordinate
      i++<12?114:98)    //    Print either 'r' or 'b'
  );                    //  End of loop
}                       // End of method

Bash , 59 bytes

No es el más corto, pero sí divertido:

printf %s\\n {{0,2,6}\,{0,2,4,6}r,{1,5,7}\,{1,3,5,7}b}|sort

Pruébalo en línea!

APL (Dyalog Classic) , 38 bytes

(⍕⍪4/3 4~⍨⍳8),',',(⍕⍪24⍴⍋8⍴⍳2),12/'rb'

Pruébalo en línea!

Jalea , 35 bytes

8Ḷḟ3ḟ4µḂr7m2ṭ€µ€Ẏµḣ1<3Ḣị⁾rbṭj”,$µ€Y

Pruébalo en línea!

Programa completo sin argumentos

Explicación

8Ḷḟ3ḟ4µḂr7m2ṭ€µ€Ẏµḣ1<3Ḣị⁾rbṭj”,$µ€Y  Main link; no arguments
8                                    8
 Ḷ                                   Push 0 .. 8 - 1
  ḟ                                  Remove all instances of
   3                                 3
    ḟ                                Remove all instances of
     4                               4
                €                    For each in [0, 1, 2, 5, 6, 7]
       µḂr7m2ṭ€µ                     Generate all of the piece coordinates across that row
        Ḃ                            row number % 2
         r                           inclusive range up to
          7                          7
           m                         modular; take every   elements
            2                                            2
              €                      For each column coordinate
             ṭ                       Tack the row coordinate (reverse append)
                 Ẏ                   Tighten; flatten once
                                 €   For each piece coordinate (in the right order now)
                 µḣ1<3Ḣị⁾rbṭj”,$µ    Convert to its final output
                  ḣ                  Head; take the first   element(s)
                   1                                      1
                    <                Less Than; compare each element to
                     3               3
                      Ḣ              Head; take the comparison out of the list
                       ị             Index (1-indexed) into
                        ⁾rb          "rb"
                           ṭ         Tack the color character behind
                            j”,$     The coordinates joined by a comma
                            j        Join with separator
                             ”,      ","
                                  Y  Separate by newlines

Java 8, 97 bytes

o->{int i=0,g;for(;i<8;i+=i==2?3:1)for(g=i%2;g<8;g+=2)System.out.println(i+","+g+(i<5?"r":"b"));}

JavaScript (ES6), 64 bytes

Esto parece lo suficientemente diferente de @ Arnauld para justificar la publicación:

f=(n=0,y=n>>3,c=y>2)=>y<6?[y+c*2,n%8+y%2+'rb'[+c]]+`
`+f(n+2):''

Explicación:

f=(n = 0,            //the numbered square on checkerboard
   y = n >> 3,       //current row (n / 8 rounded)
   c = y > 2         //false if red pieces, true if black
  ) => 
  y < 6 ?            //if y less than 6 
    [                //  using an array automatically adds the comma
     y + c * 2,      //  0 - 2 if red pieces, 5 - 7 if black
     n%8 + y%2 +     //  n%8 returns 0, 2, 4, or 6.
                     //  y%2 returns 0 or 1.
                     //  added, they return the appropriate position (0 - 7)
     'rb'[+c]        //  'r' if red, 'b' if black.  Plus sign coerces boolean to number.
    ]+`              //  new line
    `+
    f(n+2) :         //  recurse on n+2
    ''               //else return an empty string

Retazo:

f=(n=0,y=n>>3,c=y>2)=>y<6?[y+c*2,n%8+y%2+'rb'[+c]]+`
`+f(n+2):''

console.log(f());

Python 2 , 63 bytes

x=0;exec"print`x/8+x/24*2`+','+`x%8+x/8%2`+'rb'[x/24];x+=2;"*24

Pruébalo en línea!

APL (Dyalog) , 45 44 bytes *

-1 gracias a ngn.

Función niládica que supone una indexación basada en 0 ( ⎕IO←0) que es predeterminada en muchos sistemas. Imprime en STDOUT.

↑' '⎕R','⊃,/(8 ¯8↑¨⊂⍕¨⍸∘.=⍨2|⍳8),¨¨'rb'

Pruébalo en línea!

(... ),¨¨'rb' agregue "r" a cada uno del primer grupo de elementos y "b" a cada uno de los segundos:

 ⍳8 cero a ocho

 2| resto de división cuando se reduce a la mitad

 ∘.+⍨ mesa plus con sí mismo en ambos ejes

 ⍸ índices de valores verdaderos

 ⍕¨ formatee cada uno (se convierte en cadenas con el patrón d ddonde cada uno des un dígito)

 ⊂ adjuntar (para que podamos reutilizarlo para cada ...)

 8 ¯8↑¨ toma los primeros nueve y los últimos nueve

ahora tenemos dos listas de d dcadenas

,/ reducción de catenation (combine las dos listas)

⊃ revelar (porque la reducción redujo el rango de 1 a 0)

' '⎕R',' PCRE R eplace espacios con comas

↑ mezclar (todas las listas en una sola matriz)

^{* En Dyalog Classic, contando ⍸como ⎕U2378.}

Chicle , 59 bytes

00000000: 15ca b101 0030 0400 c1de 2c0a 2462 1f23  .....0....,.$b.#
00000010: d8bf 886f ae3a 531b 310d b8f0 465c 1d0e  ...o.:S.1...F\..
00000020: 24d4 48ec 5b02 2eec 4bf5 5e0e 2454 cb53  $.H.[...K.^.$T.S
00000030: 8380 0baf a5d4 e140 42f5 07              .......@B..

Pruébalo en línea!

Pyth , 37 36 35 bytes

Isaac no estaría orgulloso

V+U3}5 7FG4p++N\,+yG?!%N2Z1?<N5\r\b

Explicación:

V+U3}5 7            For in the array [0, 1, 2, 5, 6, 7] as N
 FG4                 For in the array [0, 1, 2, 3] as G
  p                   Print without newline:
   ++N\,+yG?!%N2Z1     N, (2 * G) + 1 if N is even, else 0
  ?<N5\r\b            Output with newline "r" if N < 5 else "b"

Esto usa un patrón simple que corté un poco. Como sigue:

Si el Xcoord es par, use los números pares 0, 2, 4, 6. De lo contrario, 1, 3, 5, 7para Y.

Si el Xcoord es menor que 5, el color ( ro b) es r. De lo contrario, lo es b.

Pruébalo en línea!

editar : durante la noche obtuvo +40 rep en 3 respuestas diferentes w00t

SOGL V0.12 , 31 bytes

⁰¹²⁵⁶⁷’{A4∫«Ha2\⌡HaOļ,pƧbra4>Wo

Pruébalo aquí!

Javascript (89 bytes):

for(x=y=0,r="r";x<7|y<8;console.log(x+","+y+r),y+=2){if(y>7)y=++x%2;if(x==3){x+=2;r="b"}}

Legible:

for(var x = y = 0, red = true; x < 7 || y < 8; y += 2) {
    if(y > 7) { //new row
        x++;
        y = x % 2;
    }
    if(x == 3) { //new color
        x += 2;
        red = false;
    }
    console.log(x + "," + y + (red ? "r" : "b") );
}

Pruébalo en línea!

Jalea , 27 bytes

8Ḷµḟ3,4pµSḂ$Ðḟj€”,ż⁾rbx12¤Y

Un programa completo que imprime la salida requerida.

Pruébalo en línea!

Cómo

8Ḷµḟ3,4p⁸SḂ$Ðḟj€”,ż⁾rbx12¤Y - Link: no arguments
8                           - literal eight
 Ḷ                          - lowered range = [0,1,2,3,4,5,6,7]
  µ                         - new monadic chain
    3,4                     - literal list = [3,4]
   ḟ                        - filter discard = [0,1,2,5,6,7]
        ⁸                   - chain's left argument = [0,1,2,3,4,5,6,7]
       p                    - Cartesian product = [[0,0],[0,1],...,[2,7],[5,0],...,[7,6],[7,7]]
            Ðḟ              - filter discard if:
           $                -   last two links as a monad:
         S                  -     sum
          Ḃ                 -     modulo by 2
                ”,          - literal comma character
              j€            - join €ach pair with a comma = [0,',',0],[0,',',2],...,[2,',',6],[5,',',1],...,[7,',',5],[7,',',7]]
                         ¤  - nilad followed by links as a nilad:
                   ⁾rb      - literal list = ['r','b']
                       12   - literal twelve
                      x     - repeat = ['r','r','r','r','r','r','r','r','r','r','r','r','b','b','b','b','b','b','b','b','b','b','b','b']
                  ż         - zip together = [[[0,',',0],'r'],[[0,',',2],'r'],...,[[2,',',6],'r'],[[5,',',1],'b'],...,[[7,',',5],'b'],[[7,',',7],'b']]
                          Y - join with newlines = [[0,',',0],'r','\n',[0,',',2],'r','\n',...,'\n',[2,',',6],'r','\n',[5,',',1],'b','\n',...,'\n',[7,',',5],'b','\n',[7,',',7],'b']
                            - implicit print (smashes the list of lists and characters
                            -                 together and prints the digits)

Ruby , 63 60 bytes

[*0..11,*20..31].map{|x|puts [x/4,2*x%8+x[2]]*?,+"rb"[x[4]]}

La magia de Bitmask salva el byte.

Pruébalo en línea!

PowerShell , 63 bytes

0..2+5..7|%{$i=$_;0,2,4,6|%{"$i,$($_+$i%2)"+('r','b')[$i-ge5]}}

Pruébalo en línea!

Se repite 0,1,2,5,6,7y cada iteración se establece $ien el número actual. Luego se repite 0,2,4,6. En cada bucle interno, construimos una cadena que comienza $i,luego concatenada con el número actual de nuestro bucle interno más si $ies par o impar (lo que nos da 0,2,4,6una vez y 1,3,5,7la otra vez), luego concatenada con red o bfalta en función de si $ies -greal o no -o ebien- a 5. Esas cadenas se dejan en la tubería y lo implícito Write-Outputen la finalización del programa nos da nuevas líneas de forma gratuita.

J , 48 44 40 37 31 bytes

(}:"1":$.|:8$#:162 69),.12#'rb'

Pruébalo en línea!

Cómo funciona

           8$#:162 69    first 2 columns in binary, take 8 of them
         |:              transpose
       $.                format as a sparse array, kind of looks like the goal
     ":                 "to text"
 }:"1                    delete the last column
       ,.12#'rb'         append 12 rs followed by 12 bs as the last column

C # (.NET Core) , 96 bytes

()=>{for(int i=0;i<24;)System.Console.Write($"{i/4+i/12*2},{i*2%8+i/4%2}{(i++>11?"b":"r")}\n");}

Pruébalo en línea!

Esencialmente solo un puerto a C # de la respuesta de @ JonathanFrech . No podría encontrar una mejor manera de hacer los cálculos.