Produce n n cuadrados de enteros con * rotativos en esquinas consecutivas

9

El objetivo es producir la salida de n cuadrados (nxn) de enteros aleatorios ( 0-9) con un movimiento *que gira en sentido horario alrededor de las esquinas, comenzando desde la parte superior izquierda. Los cuadrados deben estar uno al lado del otro y separados por un solo espacio.

Si n = 0, la salida debe estar vacía.

Salida para n=1:

*

Salida para n=2:

*3 4*
14 07

Salida para n=3:

*34 82* 291
453 224 924
145 158 57*

Salida para n=4:

*153 135* 0154 0235
2352 5604 3602 2065
2245 6895 3561 7105
7225 5785 479* *662

Observe cómo *gira (alrededor de las esquinas del cuadrado), de izquierda a derecha, así: arriba a la izquierda, arriba a la derecha, abajo a la derecha, abajo a la izquierda, arriba a la izquierda, etc. (en sentido horario)

ingrese la descripción de la imagen aquí

La respuesta más corta (medida en bytes) gana.

Reenvío
fuente
55
Por favor, hágame entender esto
Rohan Jhunjhunwala
1
Votación para reabrir. Esto está completamente claro para mí. Han hecho algunas ediciones menores. ("cuadrado perfecto" sonaba demasiado parecido al término de álgebra para mí)
Level River St
2
¿Qué tan "aleatorios" deben ser los números aleatorios? Probablemente también valga la pena ser explícito en su pregunta sobre el hecho de que los números deben tener exactamente N dígitos de largo, contando los asteriscos como dígitos.
Jesse Amano
1
<Shrug> Tal vez estoy siendo lento, pero todavía no está claro para mí. ¿Puedes explicar la ubicación de la *s en el n=4ejemplo? Quizás dar algunos ejemplos más?
Trauma digital
2
@DigitalTrauma Tampoco pude entenderlo hasta que me di cuenta de que no estás imprimiendo un "reloj", estás imprimiendo n relojes uno al lado del otro (lo cual no estaba del todo claro en la pregunta). Entonces, en el ejemplo n = 4, verá cuatro "relojes": el primero con la fila superior *153, el segundo con la fila superior *135, y así sucesivamente.
Jordan

Respuestas:

4

05AB1E , 50 49 bytes

3mF9Ý.R}J¹ô¹ävy`¦'*ìN4%©>ir}®iRr}®<iR})ˆ}¯øvyðý}»

Explicación

Ejemplos para input = 4.

Primero creamos una cadena de entrada ^ 3 números aleatorios entre 0 y 9.

3mF9Ý.R}J

productor

6799762549425893341317984133999075245812305412010122884262903656

Luego lo dividimos en pedazos, cada uno del tamaño de la entrada.
Eso se divide aún más en piezas de entrada.

¹ô¹ä

Esto nos da una matriz de números.

[['6799', '7625', '4942', '5893'], 
 ['3413', '1798', '4133', '9990'], 
 ['7524', '5812', '3054', '1201'], 
 ['0122', '8842', '6290', '3656']]

Luego recorremos las filas de la matriz, insertando asteriscos en los lugares correctos.

v                          } # for each row in matrix 
 y`                          # flatten list to stack
   ¦'*ì                      # replace the first digit of the last number with "*"
       N4%©>ir}              # if row-nr % 4 == 0, move the number with "*" to the front
               ®iRr}         # if row-nr % 4 == 1, move the number with "*" to the front
                             # and reverse the number, moving "*" to the numbers right side
                    ®<iR}    # if row-nr % 4 == 2, reverse the number, moving "*" 
                             # to the numbers right side
                         )ˆ  # wrap row in a list and add to global array

Ahora tenemos la matriz con un "*" en cada fila, pero queremos un asterisco por columna.

[['*893', '4942', '7625', '6799'], 
 ['099*', '4133', '1798', '3413'], 
 ['7524', '5812', '3054', '102*'], 
 ['0122', '8842', '6290', '*656']]

Así que comprimimos esta lista convirtiendo las filas en columnas y viceversa.

[['*893', '099*', '7524', '0122'], 
 ['4942', '4133', '5812', '8842'], 
 ['7625', '1798', '3054', '6290'], 
 ['6799', '3413', '102*', '*656']]

Todo lo que queda ahora es formatear la salida.

vyðý}»

Unir las filas en espacios y las columnas en líneas nuevas nos da el resultado final.

*893 099* 7524 0122
4942 4133 5812 8842
7625 1798 3054 6290
6799 3413 102* *656

Pruébalo en línea!

Solución antigua de 50 bytes

F¹Fõ¹F9Ý.R«}}¦'*ì})¹ävyN4%©>iR}®iíÁ}®<ií}})øvyðý}»
Emigna
fuente
4

Dyalog APL , 57 bytes

Requiere ⎕IO←0cuál es el predeterminado en muchos sistemas.

Suponiendo que se permite el doble espacio, según el primer ejemplo del OP.

{A←⊃∘⍕¨?10⍴⍨3⍴⍵⋄A[(⍳⍵),¨⍵⍴2↑¨1⍵(⍵ ⍵)(1⍵)-1]←'*'⋄⍉⎕FMT A}

TryAPL en línea!

Solución de 49 bytes no competitiva (Dyalog APL 16.0):

{⍉⎕FMT'*'@((⍳⍵),¨⍵⍴2↑¨1⍵(⍵ ⍵)(1⍵)-1)⊃∘⍕¨?10⍴⍨3⍴⍵}
Adán
fuente
3

Java 7, 372 370 366 bytes

String c(int i){String s="*",a[][]=new String[i][i],t,r="";int j=0,k,z=i-1,m=(int)Math.pow(10,z);for(;j<i;j++)for(k=0;k<i;a[j][k++]=(new java.util.Random().nextInt((int)Math.pow(10,i)-m+1)+m)+"");for(j=0;j<i;k=j%4,t=a[m=k<2?0:z][k],a[m][j++]=k<1|k>2?s+t.substring(1,i):t.substring(0,z)+s);for(j=0;j<i;j++,r+="\n")for(k=0;k<i;r+=a[j][k++]+" ");return i<1?"":i<2?s:r;}

Probablemente se pueda jugar más golf colocando los asteriscos y creando la salida al mismo tiempo, en lugar de uno por uno.

Ungolfed y código de prueba:

Pruébalo aquí.

class M{
  static String c(int i){
    String s = "*",
           a[][] = new String[i][i],
           t,
           r = "";
    int j = 0,
        k,
        z = i-1,
        m = (int)Math.pow(10, z);
    for(; j < i; j++){
      for(k = 0; k < i; a[j][k++] = (new java.util.Random().nextInt((int)Math.pow(10, i) - m + 1) + m)+"");
    }
    for(j = 0; j < i; k = j % 4,
                      t = a[m = k < 2 ? 0 : z][k],
                      a[m][j++] = k < 1 | k > 2
                                   ? s + t.substring(1, i)
                                   : t.substring(0, z) + s);

    for(j = 0; j < i; j++,
                      r += "\n"){
      for(k = 0; k < i; r += a[j][k++] + " ");
    }
    return i < 1
            ? ""
            : i < 2
               ? s
               : r;
  }

  public static void main(String[] a){
    for (int i = 0; i < 6; i++) {
      System.out.println(c(i));
      System.out.println();
    }
  }
}

Salida posible:

(empty)

*

*9 4* 
92 47 


*25 55* 754 
910 197 108 
635 439 35* 


*512 407* 9646 5017 
1663 3847 9772 3149 
7796 2997 5494 1362 
7283 9720 242* *539 


*0726 7743* 52096 50958 *0726 
60322 20914 76387 92716 41579 
89994 18781 33379 84189 31777 
11781 89323 12180 51814 63536 
58411 32935 5168* *6597 43216 
Kevin Cruijssen
fuente
1

PHP, 181 bytes

for($i=-1;++$i<$c=($n=$argv[1])**3;){echo!($i%$q=$n*$n)?"\n":((!$m=$i%$n)?" ":"");echo(!$m&!($b=$i%$q/$n&3)|$m==$n-1&$b==1)&$i<$q|($m==$n-1&$b==2|!$m&$b==3)&$i>$c-$q?"*":rand(0,9);}
Jörg Hülsermann
fuente
¿Puedes hacer una versión de "Pruébalo en línea!"
Reenvío
@forwarding prueba que
Jörg Hülsermann