Menghasilkan n-kuadrat dari bilangan bulat dengan memutar * 's di sudut-sudut yang berurutan


9

Tujuannya adalah untuk menghasilkan keluaran dari n kuadrat (nxn) dari bilangan bulat acak ( 0-9) dengan gerakan *yang berputar searah jarum jam di sekitar sudut, mulai dari kiri atas. Kotak harus berdampingan dan dipisahkan oleh satu ruang.

Jika n = 0, output harus kosong.

Output untuk n=1:

*

Output untuk n=2:

*3 4*
14 07

Output untuk n=3:

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

Output untuk n=4:

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

Perhatikan bagaimana *rotasinya (di sudut sudut), dari kiri ke kanan, seperti ini: kiri atas, kanan atas, kanan bawah, kiri bawah, kiri atas, dll. (Searah jarum jam)

masukkan deskripsi gambar di sini

Jawaban terpendek (diukur dalam byte) menang.


5
Tolong hentikan saya untuk mengerti ini
Rohan Jhunjhunwala

1
Voting untuk dibuka kembali. Ini sangat jelas bagi saya. Telah melakukan beberapa pengeditan kecil. ("kuadrat sempurna" terdengar terlalu mirip dengan istilah aljabar bagi saya)
Level River St

2
Bagaimana "acak" angka acak itu? Mungkin juga layak untuk secara eksplisit dalam pertanyaan Anda tentang fakta bahwa angka-angka tersebut harus tepat panjang N digit, menghitung tanda bintang sebagai digit.
Jesse Amano

1
<Shrug> Mungkin aku lambat, tapi masih belum jelas bagiku. Bisakah Anda menjelaskan penempatan huruf *s dalam n=4contoh? Mungkin memberi beberapa contoh lagi?
Digital Trauma

2
@DigitalTrauma Saya juga tidak bisa mengetahuinya sampai saya menyadari bahwa Anda tidak mencetak satu "jam," Anda mencetak n jam berdampingan (yang sama sekali tidak jelas dari pertanyaan). Jadi, dalam contoh n = 4, Anda melihat empat "jam" - pertama dengan baris atas *153, yang kedua dengan baris atas *135, dan seterusnya.
Jordan

Jawaban:


4

05AB1E , 50 49 byte

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

Penjelasan

Contoh untuk input = 4.

Pertama kita membuat string input ^ 3 angka acak antara 0 dan 9.

3mF9Ý.R}J

memproduksi

6799762549425893341317984133999075245812305412010122884262903656

Lalu kami membaginya menjadi beberapa bagian sesuai ukuran input.
Itu selanjutnya dibagi menjadi potongan input.

¹ô¹ä

Ini memberi kita matriks angka.

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

Kami kemudian mengulangi baris dari matriks, menyisipkan tanda bintang di tempat yang tepat.

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

Sekarang kita memiliki matriks dengan tanda "*" di setiap baris, tetapi kita ingin tanda bintang per kolom.

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

Jadi kami ritsleting daftar ini mengubah baris menjadi kolom dan sebaliknya.

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

Yang tersisa sekarang adalah memformat output.

vyðý}»

Bergabung dengan baris pada spasi dan kolom pada baris baru memberi kita hasil akhir.

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

Cobalah online!

Solusi 50 byte lama

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

4

Dyalog APL , 57 byte

Membutuhkan ⎕IO←0yang default pada banyak sistem.

Dengan asumsi spasi ganda diizinkan, seperti contoh pertama OP.

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

TryAPL online!

Solusi 49-byte yang tidak bersaing (Dyalog APL 16.0):

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

3

Java 7, 372 370 366 byte

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

Mungkin bisa bermain golf lagi dengan menempatkan tanda bintang dan membuat output pada saat yang sama, bukan satu per satu.

Tidak digabungkan & kode uji:

Coba di sini.

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

Output yang mungkin:

(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 

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

Bisakah Anda membuat "Coba online!" - versi ini?
Penerusan

Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.