90 억의 하나님의 이름은 Arthur C. Clarke의 짧은 이야기입니다. 그것은 티베트 승려 그룹에 관한 것으로, 알파벳 순서로 쓰여진 하나님의 가능한 모든 이름을 적어 두는 데 전념하고 있습니다. 본질적으로, 그들은 몇 가지 규칙에 의해 제한되는 알파벳의 가능한 모든 순열을 쓰는 데 전념합니다. 이야기에서 수도원은 일부 엔지니어를 고용하여 모든 작업을 수행하는 프로그램을 작성합니다. 당신의 목표는 그 프로그램을 작성하는 것입니다.

규칙 :

• 수도사의 알파벳은 13 문자를 사용합니다 (내 추정에 따르면). ABCDEFGHIJKLM13 자 이상의 다른 문자를 사용할 수 있습니다 .

• 가능한 이름의 최소 길이는 1 자입니다. 최대 길이는 9 자입니다.

• 어떤 캐릭터도 연속으로 3 번 이상 반복 할 수 없습니다. AAABA유효한 이름이지만 AAAAB그렇지 않습니다.

• 에서 순서대로 (파일로) 모든 가능한 이름을 인쇄해야합니다 귀하의 프로그램 A에 MMMLMMMLM없는 알파벳의 모든 문자로 구분 (줄 바꿈, 세미콜론, 무엇이든).

• 이것은 코드 골프이며 모든 언어를 사용할 수 있습니다. 2014 년 6 월 1 일까지 가장 짧은 솔루션이 승리합니다.

편집 : 이름은로 시작하여 A로 끝나고 MMMLMMMLM수십억 개의 모든 이름을 순차적으로 진행해야합니다. 그러나 특정 순서는 당신에게 달려 있습니다. 그런 다음, 첫째 등 모두 두 글자로 된 이름을 모두 한 글자로 된 이름을 인쇄 할 수 있습니다 또는 당신이로 시작하는 모든 이름을 인쇄 할 수 있습니다 A, 모든으로 시작하는 사람 B, 또는 다른 패턴. 그러나 사람은 파일을 읽을 수 있고 시간이 있다고 가정 할 때 원하는 모든 논리적 순서에 따라 파일을 모두 확인할 수 있어야합니다.

루비, 46

?A.upto(?M*9){|s|s[/(.)\1{3}|[N-Z]/]||puts(s)}

내 원래의 유사한 솔루션은 길고 잘못되었습니다 (base13 숫자를 출력합니다. 이는 0으로 시작하기 때문에 숫자가 전부는 아닙니다).하지만 어쨌든 투표를했기 때문에 여기에 남겨 두겠습니다.

1.upto(13**9){|i|(s=i.to_s 13)[/(.)\1{3}/]||puts(s)}

C 140177235

좋은 오래된 절차 스타일, 공상.
8 분 동안 11,459,252,883 개의 이름을 씁니다 (쓰기 없음).
다음으로 런타임 및 이름 파일로 편집하십시오. 하늘을보십시오 ...
런타임 57 분, 파일 크기 126,051,781,713 (행당 9 자 + crlf). 직접 확인하기 위해 승려의 이메일 주소를 알려주십시오.

편집 골프를 조금 더하고, 반복되는 문자 확인을 재 작업했습니다.
여전히 가장 짧지는 않지만 적어도 이것은 종료되고 필요한 출력을 생성합니다.
런타임 51 분, 파일 크기 113,637,155,697 (이때 선행 공백 없음)

참고 사항 : 분명히 출력 파일은 매우 압축 가능하지만 36 시간 동안 작업 한 후 7zip을 70 %로 죽여야했습니다. 기묘한.

char n[]="@@@@@@@@@@";p=9,q,r;main(){while(p)if(++n[p]>77)n[p--]=65;else for(r=q=p=9;r&7;)(r+=r+(n[q]!=n[q-1])),n[--q]<65&&puts(n+q+1,r=0);}

언 골프

char n[]="@@@@@@@@@@";
p=9,q,r;
main()
{
    while (p)
    {
        if (++n[p] > 77)
        {
            n[p--] = 65; // when max reached, set to min and move pointer to left
        }
        else 
        {
            for (r=q=p=9; r & 7 ;) // r must start as any odd number
            {
                r += r+(n[q]!=n[q-1])); // a bitmap: 1 means a difference, 000 means 4 letters equal
                n[--q] < 65 && puts(n+q+1,r=0);
            }
        }
    }
}

골프 스크립트, 58 47 자

"A"13
9?,{13base{65+}%n+}%{`{\4*/,}+78,1/%1-!},

Peter Taylor 덕분에 나는 seppuku에서 Ruby 솔루션을 꺾지 않았습니다. 최대 10 개까지 직접 코드를 실행 하고, 여기가 네 -에 - 어 - 행 번호를 건너 뜁니다 증거입니다 .

Bash + Linux 명령 줄 유틸리티, 43 바이트

jot -w%x $[16**9]|egrep -v "[0ef]|(.)\1{3}"

이것은 내 대답은 아래에 유사한 기술을 사용하지만, 단지베이스 (16)에 계산하고 모든 "이름"를 포함 떼어 내고 0, e또는 f뿐만 아니라 이들 3 개 이상 같은 연속 자리를.

다음과 같이 스님의 알파벳으로 변환하십시오.

jot -w%x $[16**9]|egrep -v "[0ef]|(.)\1{3}" | tr 1-9a-d A-M

Bash + coreutils (dc 및 egrep), 46 바이트

수정-수정 된 버전

dc<<<Edo9^[p1-d0\<m]dsmx|egrep -v "0|(.)\1{3}"

실행하는 데 시간이 걸리지 만 올바른 것으로 생각합니다.

dc14 ^ 9에서 1까지 아래로 내려 가고 밑수 14에서 출력됩니다. 또한 "0"숫자로 이름을 필터링하여 이름에 올바른 문자 세트를 얻습니다.

질문은 모든 알파벳을 사용할 수 있다고 지정하므로 [1-9] [AD]를 사용하고 있습니다. 그러나 테스트를 위해 tr을 사용하여 [AM]으로 변환 할 수 있습니다.

dc<<<Edo9^[p1-d0\<m]dsmx|egrep -v "0|(.)\1{3}" | tr 1-9A-D A-M

이것은 시퀀스를 산출합니다 :

MMMLMMMLM MMMLMMMLL MMMLMMMLK ... AC AB AA M L K ... C B A

이 dc명령이 작동하려면 꼬리 재귀가 필요합니다. 이것은 dc 버전 1.3.95 (Ubuntu 12.04)에서는 작동하지만 1.3 (OSX Mavericks)에서는 작동하지 않습니다.

APL (59)

↑Z/⍨{~∨/,↑⍷∘⍵¨4/¨⎕A[⍳13]}¨Z←⊃,/{↓⍉⎕A[1+(⍵/13)⊤¯1⌽⍳13*⍵]}¨⍳9

자체 알파벳으로 작성 :) 조금 길다. 로 실행하는 데 시간이 오래 걸리므로 9원하는 경우 테스트하기 위해 더 낮은 숫자로 시도하십시오.

설명:

• {... }¨⍳9: ⍵1에서 9까지의 각 숫자에 대해
  • ⍳13*⍵: 1에서 모든 숫자를 얻습니다. 13^⍵
  • ¯1⌽(그래서 우리는이 일에 의해 왼쪽으로 목록을 회전 13^⍵, 1, 2, ..., 13^⍵-1로 변신하는 0, 1, 2 ...모듈 13^⍵).
  • (⍵/13)⊤: ⍵숫자 13을 사용하여 밑 13의 각 숫자를 인코딩하십시오.
  • ⎕A[1+... ]: 하나를 추가하고 (배열은 1 인덱싱 됨) ⎕A(알파벳)을 찾습니다
  • ↓⍉: 행렬을 열을 따라 벡터로 구성합니다.
• Z←⊃,/: 벡터의 각 내부 벡터를 결합하여 가능한 이름 목록을 제공합니다 (그러나 아직 규칙을 충족하지는 않음).
• {... }¨: 각 이름에 대해 4 개의 반복 문자 규칙을 충족하는지 테스트하십시오.
  • 4/¨⎕A[⍳13]: 각 문자에 대해 해당 문자의 문자열 4 개를 생성하십시오.
  • ⍷∘⍵¨: 각 문자열에 대해 존재하는지 테스트하십시오. ⍵
  • ∨/,↑: 논리적 또는 이 모든 테스트를 수행합니다.
  • ~: 1규칙을 준수하고 규칙을 준수 0한다는 의미입니다.
• Z/⍨: Z루엘을 충족시키는 모든 요소 중에서 선택
• ↑: 각각을 별도의 줄에 표시

펄, 70 68 66 50 자

$"=",";map/(.)\1{3}/||say,glob$i.="{@a}"for@a=A..M

용법:

$ perl -E 'code' > output_file

좋은 점은 인쇄물이 버퍼링되어 있기 때문에 먼저 1 자 솔루션을 모두 인쇄 한 다음 2 자 단어 등을 인쇄합니다.

펄-35 바이트

#!perl -l
/(.)\1{3}|[N-Z]/||print for A..1x9

shebang을 1 바이트로 계산합니다.

이것은 히스 토크 라트의 대답을 느슨하게 번역 한 것 입니다.

A..1x9조금 이상합니다. 이것은 속기입니다 'A'..'111111111'. 누산기는 실제로 터미널 값 (대문자 만 포함)에 도달하지 않지만 9 자 보다 길면 여전히 종료됩니다 . 예를 들어 1x4대신 사용하여 테스트 할 수 있습니다 .

피그 (와이어가 너무 길어 골프 용 언어)

속삭임 : 101 ...

Pe(*ItCh(((J(x)for x in ItPr("ABCDEFGHIJKLM",repeat=j)if not An((i*3 in x)for i in x))for j in R(14))))

비록 이것이 파이썬에서 실제로 어떻게하는지에 가깝지만 :

from itertools import *
for i in range(14):
    for j in ("".join(k) for k in product("ABCDEFGHIJKLM",repeat=i) if not any((i*3 in k) for i in k)):
        print j

물론 긴 줄 합병증 빼기;)

Pyth , 34 자

Kf<T"n"GJKFbJI>lb9Bb~Jm+bdfXVb*Y3K

설명:

Kf<T"n"G        K = list of letters in the alphabet before n.
JK              J = copy of K
FbJ             For b in J:
I>lb9B          If length of b > 9: break
b               print(b)
~J              J+=
~Jm+bd          J+=map(lambda d:b+d,
       XVb*Y3   index of Y*3 in reversed(b)
      fXVb*Y3K  filter for non-zero for Y in K on function index of Y*3 in reversed(b)
~Jm+bdfXVb*Y3K  J+=map(lambda d:b+d, filter(lambda Y:index of Y*3 in reversed(b), K))

파이썬 2-212 바이트

from itertools import chain,product as p
a='ABCDEFGHIJKLM'
q={c*4 for c in a}
c=0
for n in chain(*(p(*([a]*l)) for l in range(1,10))):
 n=''.join(n)
 if not any(u in n for u in q):print n
 c+=1
 if c==10**9:break

Japt , 21 바이트

Ep9 osE kè/0|(.)\1{3}

온라인으로 사용해보십시오! (링크는 최대 계산 만합니다 14**4.)

작동 원리

Ep9 osE kè/0|(.)\1{3}/

Ep9  14**9
osE  Range from 0 to n (exclusive), mapped through base-14 conversion
kè   Remove elements that match at least once...
/0|(.)\1{3}/  the regex that matches a zero or four times same char.

Array객체가 최대 2**53-1길이를 가질 수 있는 표준 ECMAScript 2017 구현을 JS 레이어 (및 배열을 저장하기에 충분한 메모리)로 가정합니다 .