랜덤 보글 보드 생성

문자 / 공백의 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 's 보다 약간 더 짧은 솔루션을 사용할 수 있지만 여기에 코드를 표시하기가 더 어렵습니다. 인쇄 할 수없는 데이터가 없으면 내 코드는 다음과 같습니다.

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

그것은 Peter Taylor의 솔루션과 매우 유사하며 .81=' u '2/=, 더 나은 무작위성을 위해 여분의 char 바이트를 사용한 후에도 약간의 셔플을 약간 단축 할 수 있다고 생각하지만, 그 트릭 과 같은 약간의 수치를 빌려주는 것을 인정 합니다.

스크립트 시작 부분의 이진 문자열에는 인쇄 할 수없는 문자가 포함되어 있으므로 여기에 직접 붙여 넣을 수 없습니다. 대신 스크립트를 16 진수 덤프로 제공합니다.

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유틸리티가 설치된 시스템 에서이 16 진수 덤프는 116 바이트 GolfScript 프로그램을 통해 전달하여 다시 작동시킬 수 있습니다 xxd -r.

편집 : 대체 999rand에 9.?rand대한 훨씬 더 나은 임의성. 셔플은 이제 기본 RNG가 허용하는 한 완벽에 가깝습니다.

파이썬 2.7, 253229215 문자

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까지

edit3 : 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 : .split과 따옴표 쌍을 피하기 위해 % W ()를 사용했습니다.

편집 2 : 사양에 맞게 (각 출력 열 사이에 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 의 내장 기능을 알지 못 하므로 각 결과를 키-값 쌍으로 바 꾸었습니다. 키는 주사위 결과와 같고 값은 난수와 같습니다. 그런 다음이 쌍을 값으로 정렬 한 다음 키를 출력하는 경우 일뿐입니다.

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