Створення випадкової дошки шахраїв

Створіть сітку 4х12 літер / пробілів:

Кожна матриця повинна з’являтися точно раз, місце вибране випадковим чином. Місце розташування повинно бути приблизно рівномірною випадковою перестановкою кісток. Відображайте випадкове (знову-таки приблизно однакове) обличчя кожного штампу. Вліво-обґрунтуйте обличчя у вікні 3 символів. Наприклад,

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

Це не рандомізована дошка у потрібному форматі. Доступний простір дозволено.

Кістки:

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

Кумедний факт: у наборі всього 1 К. Який ще лист виключно ділиться тим, що помирає?

Це код-гольф, тому програма з найкоротшим виграшним рахунком виграє!

GolfScript, 116 байт

Оскільки оцінка балів у байтах, я вважаю, що це означає, що ми можемо використовувати всі байти в розчині. Вихід за межі набору для друку ASCII дозволяє дещо коротше рішення, ніж Пітер Тейлор , за рахунок посилення відображення коду тут. Без недрукованих даних мій код виглядає приблизно так:

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

Це дуже схоже на рішення Пітера Тейлор, і я визнаю , безсоромно запозичення біт з нього (наприклад , як .81=' u '2/=трюк), хоча я думаю , що мені вдалося трохи скоротити його перетасувати, навіть після того, як проводити додаткові обвуглені байти для кращої випадковості.

Двійковий рядок на початку сценарію містить недруковані символи, тому їх тут не можна безпосередньо вставити. Натомість я надаю сценарій у вигляді шістнадцяткового дампа:

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*

У Linux або будь-якій системі із xxdвстановленою утилітою цей шестигранний дамп можна перетворити на робочу 116-байтну програму GolfScript, передавши його через xxd -r.

Edit: Замінено 999randз 9.?randдля набагато кращої випадковості. Перемішання тепер має бути приблизно таким же близьким до ідеального, як дозволяє базовий RNG.

Python 2.7, 253 229 215 символів

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:],

Більшість персонажів - це лише самі кубики. Я не хотів витрачати занадто багато часу, намагаючись зменшити його занадто багато

незначне редагування: видалено 2 непотрібних байта (додаткові пробіли)

edit2: до 229

редагувати3: до 215

GolfScript ( 141 139 137 сі байт)

З яких 94 розширити на рядок, що містить кістки. Рисунок не містить зайвого нового рядка, вставленого для його загортання, щоб код можна було побачити без прокрутки:

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

Рубі, 201 197 чол

%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")}

(і це однолінійний)

Правка 1: Використовується% W (), щоб уникнути .split та пари лапок.

Редагувати 2: Зробити це за специфікацією (два пробіли між кожним вихідним стовпцем)

Powershell, 234 символи

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

Ось той самий код із додатковим пробілом у спробі покращення читабельності :-)

#########################################
# 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'
         }

Мені shuffleневідомо про вбудовану функцію в shellhell, тому я перетворив кожен результат на пару ключових значень - ключ, що дорівнює результату кістки, і значення, що дорівнює випадковому числу. Тоді це був лише випадок сортування цих пар за значенням, а потім виведення ключів.

Perl, 179 символів

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

Ось докладна версія версії програми:

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