Produza n n quadrados de números inteiros com rotações * em cantos consecutivos

9

O objetivo é produzir a saída de n quadrados (nxn) de números inteiros aleatórios ( 0-9) com um movimento *que gira no sentido horário ao redor dos cantos, começando pelo canto superior esquerdo. Os quadrados devem estar lado a lado e separados por um único espaço.

Se n = 0, a saída deve estar vazia.

Saída para n=1:

*

Saída para n=2:

*3 4*
14 07

Saída para n=3:

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

Saída para n=4:

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

Observe como a *rotação (em torno dos cantos do quadrado), da esquerda para a direita, é assim: superior esquerdo, superior direito, inferior direito, inferior esquerdo, superior esquerdo, etc. (no sentido horário)

insira a descrição da imagem aqui

A resposta mais curta (medida em bytes) vence.

Encaminhamento
fonte
5
Por favor, ajude-me a entender isso
Rohan Jhunjhunwala
11
Votação para reabrir. Isso está completamente claro para mim. Foram feitas algumas edições menores. ( "quadrado perfeito" soava muito parecido com o termo álgebra para mim)
Nível River St
2
Quão "aleatórios" os números aleatórios precisam ser? Provavelmente também vale a pena ser explícito na sua pergunta sobre o fato de que os números precisam ter exatamente N dígitos, contando os asteriscos como dígitos.
Jesse Amano
11
<Shrug> Talvez eu esteja sendo lento, mas ainda não está claro para mim. Você pode explicar a colocação dos *s no n=4exemplo? Talvez dê mais alguns exemplos?
Digital Trauma
2
@DigitalTrauma Também não consegui descobrir isso até perceber que você não está imprimindo um "relógio", mas imprimindo n relógios lado a lado (o que não ficou claro na pergunta). Portanto, no exemplo n = 4, você vê quatro "relógios" - o primeiro com a linha superior *153, o segundo com a linha superior *135e assim por diante.
Jordânia

Respostas:

4

05AB1E , 50 49 bytes

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

Explicação

Exemplos de entrada = 4.

Primeiro, criamos uma string de entrada ^ 3 números aleatórios entre 0 e 9.

3mF9Ý.R}J

produzindo

6799762549425893341317984133999075245812305412010122884262903656

Em seguida, dividimos isso em pedaços, cada um do tamanho da entrada.
Isso é dividido em partes de entrada.

¹ô¹ä

Isso nos dá uma matriz de números.

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

Em seguida, passamos pelas linhas da matriz, inserindo asteriscos nos lugares certos.

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

Agora temos a matriz com um "*" em cada linha, mas queremos um asterisco por coluna.

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

Então, compactamos esta lista, transformando linhas em colunas e vice-versa.

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

Tudo o que resta agora é formatar a saída.

vyðý}»

Unir as linhas nos espaços e as colunas nas novas linhas nos fornece o resultado final.

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

Experimente online!

Solução antiga de 50 bytes

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

Dyalog APL , 57 bytes

Requer ⎕IO←0qual é o padrão em muitos sistemas.

Supondo que o espaçamento duplo seja permitido, conforme o primeiro exemplo do OP.

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

TryAPL online!

Solução não concorrente de 49 bytes (Dyalog APL 16.0):

{⍉⎕FMT'*'@((⍳⍵),¨⍵⍴2↑¨1⍵(⍵ ⍵)(1⍵)-1)⊃∘⍕¨?10⍴⍨3⍴⍵}
Adão
fonte
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;}

Provavelmente pode ser jogado mais um pouco, colocando os asteriscos e criando a saída ao mesmo tempo, em vez de um por um.

Ungolfed & código de teste:

Experimente aqui.

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();
    }
  }
}

Saída possível:

(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
fonte
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
fonte
Você pode criar uma versão "Experimente online!"?
Encaminhando
@forwarding Teste
Jörg Hülsermann