Générer une carte Boggle aléatoire

Générez une grille 4x12 de lettres / espaces:

Chaque dé doit apparaître précisément une fois, l'emplacement choisi au hasard. Les emplacements doivent correspondre approximativement à une permutation aléatoire uniforme des dés. Affichez une face aléatoire (à nouveau, approximativement uniforme) de chaque dé. Justifiez à gauche le visage dans la fenêtre à 3 caractères. Par exemple,

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

Est une carte non randomisée dans le format que je veux. L'espace de fuite est autorisé.

Les dés:

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

Fait amusant: il n'y a que 1 K dans l'ensemble. Quelle autre lettre partage exclusivement qui meurent?

Il s'agit de code-golf, donc le programme avec le plus petit nombre de victoires gagne!

GolfScript, 116 octets

Étant donné que le score est en octets, je pense que cela signifie que nous pouvons utiliser tous les octets de la solution. Sortir de l'ensemble ASCII imprimable permet une solution un peu plus courte que celle de Peter Taylor , au prix de rendre le code plus difficile à afficher ici. Sans les données non imprimables, mon code ressemble à ceci:

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

Il est assez similaire à la solution de Peter Taylor, et je dois admettre aux bits d' emprunt sans vergogne de celui - ci (comme le .81=' u '2/=truc), même si je pense que je réussi à réduire son remaniement légèrement, même après avoir passé un supplément ombles octet pour une meilleure aléatoire.

La chaîne binaire au début du script contient des caractères non imprimables et ne peut donc pas être collée directement ici. Au lieu de cela, je fournirai le script sous forme de vidage hexadécimal:

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*

Sous Linux, ou tout système avec l' xxdutilitaire installé, ce vidage hexadécimal peut être reconverti en un programme GolfScript de 116 octets en le passant xxd -r.

Edit: Remplacé 999randpar 9.?randpour un bien meilleur caractère aléatoire. Le shuffle devrait maintenant être aussi proche de la perfection que le permet le RNG sous-jacent.

Python 2.7, 253 229 215 caractères

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

La plupart des personnages ne sont que les dés eux-mêmes. Je ne voulais pas passer trop de temps à essayer de le réduire trop

modification mineure: suppression de 2 octets inutiles (espaces supplémentaires)

edit2: jusqu'à 229

edit3: jusqu'à 215

GolfScript ( 141 139 137 octets de caractères )

Dont 94 s'étendent jusqu'à la chaîne contenant les dés. La figure n'inclut pas le saut de ligne inutile inséré pour le boucler afin que le code puisse être vu sans défilement:

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

Ruby, 201 197 caractères

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

(et c'est une ligne)

Édition 1: utilisé% W () pour éviter le .split et une paire de guillemets.

Edit 2: Made to spec (deux espaces entre chaque colonne de sortie)

Powershell, 234 caractères

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

Voici le même code avec des espaces supplémentaires, dans une tentative d'améliorer la lisibilité :-)

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

Je ne suis pas au courant d'une shufflefonctionnalité intégrée dans PowerShell, j'ai donc transformé chaque résultat en une paire clé-valeur - la clé égalant un résultat de dés et la valeur égalant un nombre aléatoire. Ensuite, il s'agissait simplement de trier ces paires par valeur, puis de sortir les clés.

Perl, 179 caractères

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

Voici une version détaillée du programme:

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