Hasilkan Papan Kericuhan Acak

Hasilkan kisi-kisi surat / spasi 4x12:

Setiap dadu harus muncul tepat satu kali, lokasi dipilih secara acak. Lokasi harus mendekati permutasi acak dadu yang seragam. Peragakan wajah acak (sekali lagi, kurang seragam) dari setiap dadu. Kiri-benarkan wajah di jendela 3 karakter. Sebagai contoh,

A  E  A  A
E  C  D  E
D  A  Qu E
E  A  H  D

Adalah papan non-acak dalam format yang saya inginkan. Ruang tambahan diperbolehkan.

Dadu:

A  A  E  E  G  N
E  L  R  T  T  Y
A  O  O  T  T  W
A  B  B  J  O  O
E  H  R  T  V  W
C  I  M  O  T  U
D  I  S  T  T  Y
E  I  O  S  S  T
D  E  L  R  V  Y
A  C  H  O  P  S
H  I  M  N  Qu U
E  E  I  N  S  U
E  E  G  H  N  W
A  F  F  K  P  S
H  L  N  N  R  Z
D  E  I  L  R  X

Fakta lucu: hanya ada 1 K di set. Apa surat lain yang secara eksklusif berbagi yang mati?

Ini adalah kode-golf sehingga program dengan bytecount terpendek menang!

GolfScript, 116 byte

Karena skor dalam byte, saya pikir itu berarti kita dapat menggunakan semua byte dalam solusi. Keluar dari set ASCII yang dapat dicetak memungkinkan solusi yang agak lebih pendek daripada Peter Taylor , dengan biaya membuat kode lebih sulit untuk ditampilkan di sini. Tanpa data yang tidak patut, kode saya terlihat seperti ini:

'57 BYTES OF BINARY DATA HERE'256base 26base 6/{;9.?rand}${6rand=65+.81='  u '2/=}%8/n*

Ini sangat mirip dengan solusi Peter Taylor, dan saya akui meminjam bit tanpa malu-malu (seperti .81=' u '2/=trik), meskipun saya pikir saya berhasil mempersingkat shuffle-nya sedikit, bahkan setelah menghabiskan byte char ekstra untuk keacakan yang lebih baik.

String biner di awal skrip berisi karakter yang tidak diinginkan, sehingga tidak dapat ditempelkan secara langsung di sini. Sebagai gantinya, saya akan memberikan script sebagai hex dump:

0000000: 2701 8302 7c56 97d5 ec9c 52e3 462e 44d7  '...|V....R.F.D.
0000010: a8d2 81c9 6115 fc80 4da4 6cd3 b06f a6d8  ....a...M.l..o..
0000020: 4e7e 2029 12a9 f331 0b83 3481 de36 81e2  N~ )...1..4..6..
0000030: 41b4 534d dee8 13f7 ccfd 2732 3536 6261  A.SM......'256ba
0000040: 7365 2032 3662 6173 6520 362f 7b3b 392e  se 26base 6/{;9.
0000050: 3f72 616e 647d 247b 3672 616e 643d 3635  ?rand}${6rand=65
0000060: 2b2e 3831 3d27 2020 7520 2732 2f3d 7d25  +.81='  u '2/=}%
0000070: 382f 6e2a                                8/n*

Di Linux, atau sistem apa pun dengan xxdutilitas yang diinstal, hex dump ini dapat diubah kembali menjadi program GolfScript 116-byte yang bekerja dengan meneruskannya xxd -r.

Sunting: Diganti 999randdengan 9.?randuntuk keacakan yang jauh lebih baik. Acaknya sekarang harus sedekat mungkin dengan RNG yang mendasarinya.

Python 2.7, 253 229 215 karakter

from random import*
j=0
for x in map(choice,sample("AAEEGN ELRTTY AOOTTW ABBJOO EHRTVW CIMOTU DISTTY EIOSST DELRVY ACHOPS HIMNQU EEINSU EEGHNW AFFKPS HLNNRZ DEILRX".split(),16)):j+=1;print x+' u'[x=='Q']+'\n'[j%4:],

Sebagian besar karakter hanyalah dadu itu sendiri. Saya tidak ingin menghabiskan terlalu banyak waktu untuk mengurangi terlalu banyak

suntingan kecil: menghapus 2 byte yang tidak perlu (ruang ekstra)

edit2: turun ke 229

sunting3: hingga 215

GolfScript ( 141 139 137 chars bytes)

Dari yang 94 diperluas ke string yang berisi dadu. Gambar tidak termasuk baris baru yang tidak perlu dimasukkan untuk membuatnya membungkus sehingga kode dapat dilihat tanpa menggulir:

'Y
ISY
XIAOOW
VYAAEEGNABBJOOEHRTVWCIMOTUEIOSSTACHOPSHIMNQUEEINSUEEGHNWAFFKPSHLNNRZ'n/'TTELRD'*
6/{[6rand=99rand\]}%${1=.81='  u '2/=}%8/n*

Ruby, 201 197 karakter

%W(AAEEGN ELRTTY AOOTTW ABBJOO EHRTVW CIMOTU DISTTY EIOSST DELRVY ACHOPS HIMNQU EEINSU EEGHNW AFFKPS HLNNRZ DEILRX).sample(16).map{|c|c[rand 6]}.each_slice(4){|x|puts x.join("  ").gsub(/Q ?/,"Qu")}

(dan itu satu-liner)

Sunting 1: Digunakan% W () untuk menghindari .split dan sepasang tanda kutip.

Sunting 2: Dibuat sesuai spesifikasi (dua spasi di antara setiap kolom keluaran)

Powershell, 234 karakter

$d=(0..15|%{@{'AAEEGNELRTTYAOOTTWABBJOOEHRTVWCIMOTUDISTTYEIOSSTDELRVYACHOPSHIMNQUEEINSUEEGHNWAFFKPSHLNNRZDEILRX'[6*$_+(random)%6]=random}.GetEnumerator()}|sort Value|%{$_.Key})
0..3|%{($d[($_*4)..($_*4+3)])-join"   "-replace'Q ','Qu'}

Berikut kode yang sama dengan spasi putih tambahan, dalam upaya meningkatkan keterbacaan :-)

#########################################
# roll the 16 dice and shuffle them     #
#########################################

$d=(
        0..15 | % {
                    @{
                       'AAEEGNELRTTYAOOTTWABBJOOEHRTVWCIMOTUDISTTYEIOSSTDELRVYACHOPSHIMNQUEEINSUEEGHNWAFFKPSHLNNRZDEILRX'[6*$_+(random)%6]=random
                     }.GetEnumerator() 
                  } | sort Value | % {
                                        $_.Key
                                     }
    )

############################################
# add the 16 results to the 4 by 4 grid    #
############################################

0..3 | % {
            ($d[($_*4)..($_*4+3)]) -join "   " -replace 'Q ','Qu'
         }

Saya tidak mengetahui shufflefitur bawaan di PowerShell, jadi saya mengubah setiap hasil menjadi pasangan nilai kunci - kunci yang menyamakan hasil dadu dan nilai yang menyamai angka acak. Maka itu hanya kasus menyortir pasangan ini dengan nilai kemudian mengeluarkan kunci.

Perl, 179 karakter

@d=(Qu,map"$_ ",HIMNUAAEEGNELRTTYAOOTTWABBJOOEHRTVWCIMOTUDISTTYEIOSSTDELRVYACHOPSEEINSUEEGHNWAFFKPSHLNNRZDEILRX
=~/./g);print+(splice@d,6*int rand@d/6,6)[rand 6],@d%24?$":$/while@d

Inilah versi verbose dari program ini:

my $fullset = "HIMNUAAEEGNELRTTYAOOTTWABBJOOEHRTVWCIMOTUDISTTY"
           . "EIOSSTDELRVYACHOPSEEINSUEEGHNWAFFKPSHLNNRZDEILRX";
my @dice = ("Qu");
push @dice, "$_ " for split //, $fullset;
while (@dice) {
    my @die = splice @dice, 6 * (int rand @dice / 6), 6;
    print $die[rand 6];
    print @dice % 24 ? " " : "\n";
}