生成随机的Boggle棋盘

生成一个4x12的字母/空格网格：

每个骰子应该出现一次，位置随机选择。位置应近似为骰子的均匀随机排列。显示每个模具的随机（再次，近似均匀）的面。在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

有趣的事实：集合中只有1K。还有哪些其他信件专门导致死亡？

这是代码高尔夫球，因此字节数最短的程序将获胜！

GolfScript，116个字节

由于计分单位是字节，因此我认为这意味着我们可以使用解决方案中的所有字节。超出可打印的ASCII设置允许的解决方案比Peter Taylor的解决方案短一些，但代价是使代码难以在此处显示。没有不可打印的数据，我的代码如下所示：

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

这与Peter Taylor的解决方案非常相似.81=' u '2/=，尽管我认为即使为了获得更好的随机性而花了额外的char字节，我还是设法略微缩短了他的洗牌时间，但我承认无耻地借用了它。

脚本开头的二进制字符串包含不可打印的字符，因此不能直接粘贴在此处。相反，我将脚本作为十六进制转储提供：

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。

编辑：替换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个不必要的字节（多余的空格）

编辑2：降至229

edit3：降至215

GolfScript（141 139 137 个字符字节）

其中94扩展到包含骰子的字符串。Figure不包含插入不必要的换行符以使其换行，因此无需滚动即可查看代码：

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

Ruby，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'
         }

我不知道shufflePowershell 的内置功能，因此我将每个结果转换为一个键值对-等于骰子结果的键和等于随机数的值。然后，只是按值对这些对进行排序然后输出键的情况。

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