프로그램은 알파벳을 네 번, 즉 보통 알파벳 순서로, 두번째는 쿼티 키보드 순서로, 두번째는 드보락 키보드 순서로, 마지막으로 알파벳 역순으로 네 번 인쇄해야합니다. 출력은 다음과 유사해야합니다.

abcdefghijklmnopqrstuvwxyz
qwertyuiopasdfghjklzxcvbnm
pyfgcrlaoeuidhtnsqjkxbmwvz
zyxwvutsrqponmlkjihgfedcba

출력은 대소 문자를 구분하지 않으며 원하는 곳에 줄 바꿈이나 공백을 추가하거나 생략 할 수 있습니다.

캐치 : 프로그램은 104 자 미만이어야합니다. 즉, 알파벳의 길이에 4를 곱한 길이보다 작아야합니다.

내가 더 감동하는 것이 정말 영리하거나 흥미로운 것을 보지 않으면 가장 짧은 코드로 답을 받아 들일 것입니다.

편집 : 나는 2011 년 4 월 27 일 수요일에 가장 짧은 답변을 수락합니다.

EDIT2 : 그리고 승자는 64 문자 로 (평소와 같이) Golfscript 입니다! 3 자리 만 남은 2 위 는 Golfscript에 67 자리, Bash는 72 자리 로 3 위 입니다.

그러나 같은 내가 언급하고 싶었 몇 사람이 있었다 이것 당신의 정의에 따라 만 52 "문자"를 사용, 그리고 이 하나 그가 만든 언어를 썼다.

거기에 있었다 몇 명 백지 규칙을 깨고 자격이되지 않았다,하지만 난 그냥 상자없이 생각의 방식을 위해 그들을 언급 할 것이다.

파이썬 2, 97 자

q="qwertyuiopasdfghjklzxcvbnm"
a="".join(sorted(q))
print a,q,"pyfgcrlaoeuidhtnsqjkxbmwvz",a[::-1]

QWERTY를 정렬하고 목록에서 문자열로 다시 변환하는 것이 알파벳 자체보다 짧습니다! *

알파벳 자체보다 적은 문자로 알파벳을 생성하는 또 다른 옵션 :

print map(chr,range(65,91))

이것은 파이썬 문자 목록을 인쇄하지만.

여기에서는 데이터 압축 방식으로 수행 할 것이 많지 않습니다. 문자를 5 비트로 방해하면 39 문자 만 절약 할 수 있습니다. 문자를 잼 해제해야하는 경우 (그리고 문자 그대로 바이트를 표현해야하는 경우) 그리 많지 않습니다. 예를 들어 zlib가 20 바이트 미만을 절약하는 것처럼 보입니다. 다음 문자에 대한 델타 목록으로 시퀀스를 인코딩하면이 시퀀스에서 가장 큰 것이 -22이므로 각 델타에 대해 여전히 5 비트가 필요합니다.

[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
 1, 1, 1, 1, 1, 1, 1, -9, 6, -18, 13, 2, 5, -4, -12, 6, 
 1, -15, 18, -15, 2, 1, 2, 1, 14, -2, -21, 19, -20, 12, 
 -1, 3, 9, -19, 1, -4, 15, -6, -11, 14, -10, 16, -12, -5, 
 4, 12, -6, 5, -2, -7, 1, 13, -22, 11, 10, -1, 4, 0, -1, 
 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1]

_{* 약간만 있지만.}

PHP, 100 바이트

ISO 8859-1로 :

<?=base64_encode("i·yø!9%z)ª»-ºü1Ë:°z»rº*)jÇ_ä<\½¹æ§'àr¹Z¡ë¢vg²¨äŹ°¿<òÇî¶Êê¦æHâÞuÆÚ");

안정적으로 재현하기 위해

printf '<?=base64_encode("' > 4times.php
printf abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba | base64 -d >> 4times.php
printf '");' > 4times.php

루비 1.9, 88 87 84 80

puts b=[*?a..?z],:qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz,b.reverse

배쉬, 82

echo {a..z}
echo qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz
echo {z..a}

파이썬, 97 96 "문자"

"문자"라는 단어를 자유롭게 사용하면 16 비트 유니 코드 문자를 사용하여 각각 3 개의 일반 문자를 인코딩하는 파이썬이 있습니다. 이 프로그램은 총 96 자이며 그중 35 개는 내가 본 것 중 가장 이상한 유니 코드 문자입니다.

for i in range(104):print chr((ord(u'ࠠᒃ⃦ⵉ��割廕��匓�เ᳅ⵉૹ�懬ࣅű傎ᱨ�⤰〷�弙劶��ⶍKᓇࡤ^A'[i/3])>>i%3*5&31)+97),

유니 코드 가비지가 올바르게 올지 확실하지 않으므로 위의 파이썬 프로그램을 생성하는 파이썬 프로그램이 있습니다.

#!/usr/bin/python                                                                                                                                                                 
import codecs
f=codecs.open('alpha.py','w','utf-8')
f.write('#!/usr/bin/python\n')
f.write('# coding=utf-8\n')
f.write('for i in range(104):print chr((ord(u\"')
S='''abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcbaa'''
for i in xrange(0,104,3):
 n=32*32*(ord(S[i+2])-97)+32*(ord(S[i+1])-97)+ord(S[i+0])-97
 f.write(u'%c'%n)
f.write('"[i/3])>>i%3*5&31)+97),\n')

배쉬, 72

echo {a..z} qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz {z..a}

편집 : 제거 tr -d.

크레딧 : Alexander, Roger.

골프 스크립트, 64 자

"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz".$2%\1$-1%

참고 : 또한 64 바이트. 실제로, base키워드가 너무 길기 때문에 유니 코드 및 기본 변경을 사용하는 것은 비생산적인 것 같습니다 .

윈도우 PowerShell, 89

특별히 좋지는 않지만 적어도 출력 문자열보다 짧습니다.

[char[]](65..90)
'qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz'
[char[]](90..65))

더 짧아 이제 공백에 이완이 있음을 알았습니다. 허용되는 경우를 무시하면 조금 더 짧아집니다.

골프 스크립트, 76 자 , 67 자

123,97>+."qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz"\-1%

• 루비 코드를 Ventero의 Golfscript 알파벳 생성으로 변경했습니다 .

CI -92 자

'a(1p'z((,0(4d)(.$)<)$)(0c0c.1+2p$.)>)$)qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz

CI ( "컴파일러 / 통역사")는 "자기 통역사" 챌린지 ( 답변 링크)를 위해 만든 간단한 스택 기반 언어 입니다. 이 질문이 게시되기 2 시간 전에 답변을 게시했습니다. 내 목표는 인터프리터를 짧게 만드는 것이었기 때문에 GolfScript는 아닙니다.

이 프로그램은 ci표준 입력을 통해 통역사 에게 전달되어야합니다 . 인터프리터는 종료 후 문자를 )프로그램의 입력으로 처리합니다. 내 언어는 문자열 리터럴을 지원하지 않으므로 stdin이 대신하고 있습니다.

파이썬 2.7.X-아이러니하게 103 자 ...

a='abcdefghijklmnopqrstuvwxyz'
print a,'qwertyuiopasdfghjklzxcvbnm pyfgcrlaoeuidhtnsqjkxbmwvz',a[::-1]

파이썬에서 알파벳을 생성하는 것은 하드 코딩보다 많은 문자를 필요로합니다. 알파벳을 가져 오는 것과 마찬가지로. 가독성 중심 언어를 좋아하는 경우가 있습니다.

C — 133 자

Casey의 단축 버전 :

main(i){char a[105];strcpy(a+26,"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz");for(i=0;i<26;)a[i]=a[103-i]=i+++65;puts(a);}

공백 :

main(i) {
    char a[105];
    strcpy(a+26, "qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz");
    for(i=0;i<26;)
        a[i]=a[103-i]=i+++65;
    puts(a);
}

전치 된 출력

다음은 재미를 위해 출력을 바꾼 버전입니다. 134 자

main(i){char*a="qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz";for(i=0;i<26;i++,a++)printf("%c%c%c%c\n",i+65,*a,*(a+25),90-i);}

공백 :

main(i){
  char*a="qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz";
  for(i=0;i<26;i++,a++)
    printf("%c%c%c%c\n",i+65,*a,*(a+25),90-i);
}

인쇄물:

AqmZ
BwpY
CeyX
DrfW
EtgV
FycU
거트
힐스
IoaR
JpoQ
KaeP
LsuO
MdiN
NfdM
OghL
PhtK
QjnJ
RksI
slqH
TzjG
UxkF
VcxE
WvbD
XbmC
YnwB
ZmvA

제이

x=:(97+/i.26){a.
x
261329910883437428257896643x A.x
247073478763191548160234722x A.x
(_1+/-i.26){x

J에 대한 나의 첫 경험은 단순히 필요한 순열의 표준 (사전 적) 수를 사용하는 것입니다. 불행히도 이것은 하드 코딩보다 더 많은 문자를 사용합니다. 그러나 마법의 숫자를 산출하는 산술적 표현 (파워를 사용하거나 사용하지 않는 것을 사용)을 찾을 수 있다면 단축 될 수 있습니다.

파이썬, 90 개의 유니 코드 문자

#coding:u8
print u"扡摣晥桧橩汫湭灯牱瑳癵硷穹睱牥祴極灯獡晤桧歪穬捸扶浮祰杦牣慬敯極桤湴煳歪扸睭究祺睸當獴煲潰浮歬楪杨敦捤慢".encode("u16")[2:]

ideone에서 실행 - http://ideone.com/R2dlI 또는 codepad - http://codepad.org/lp77NL9w

자바 스크립트 139 (121)

새로운:

q='qwertyuiopasdfghjklzxcvbnm'
a=q.split('').sort()
alert(a.join('')+q+'pyfgcrlaoeuidhtnsqjkxbmwvz'+a.reverse().join(''))

낡은:

a=[]
a[26]='qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz'
for(i=0;i<26;i++)a[i]=a[52-i]=String.fromCharCode(i+65)
alert(a.join(''))

루아 — 111 자

C와 C ++를 친다! :-)

print'abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba'

루아의 "영리한"버전

129 자

q='qwertyuiopasdfghjklzxcvbnm'a={q:byte(1,-1)}table.sort(a)a=q.char(unpack(a))print(a,q,'pyfgcrlaoeuidhtnsqjkxbmwvz',a:reverse())

공백 :

q='qwertyuiopasdfghjklzxcvbnm'
a={q:byte(1,-1)}
table.sort(a)
a=q.char(unpack(a))
print(a,q,'pyfgcrlaoeuidhtnsqjkxbmwvz',a:reverse())

C- 163135 자

104자를 넘으면서 요구 사항을 충족하지는 못했지만 재미있었습니다. 누군가가 몇 가지 제안을 할 것입니다.

main(i){char a[105];strcpy(&a[26],"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz");for(i=0;i<26;)a[i]=a[103-i]=i+++65;puts(a);}

이것은 GCC 4.5.1 (다른 테스트되지 않은)에서 컴파일됩니다. #include, return 유형 및 변수 선언을 생략하여 Yay! 하드 코딩은 프로그램을 더 짧게 만들었지 만 재미는 없습니다.

공백 버전 :

main(i) {                                                                                   
    char a[105];                                                                        
    strcpy(&a[26], "qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz");                 
    for(i=0;i<26;)                                                                          
        a[i]=a[103-i]=i+++65;                                                               
    puts(a);                                                                                
}

C- 124122 절름발이

절름발이 하드 코딩 된 버전이 있으며 여전히 자르지 않습니다.

main(){puts("abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba");}

PHP 88 바이트

<?=$a=join(range(a,z)),~Žˆš‹†Š–žŒ›™˜—•”“…‡œ‰‘’†™˜œ“žšŠ–›—‹‘ŒŽ•”‡’ˆ‰…,strrev($a);

J-69 자

'pyfgcrlaoeuidhtnsqjkxbmwvz'(,~|.)&(,\:~)'mnbvcxzlkjhgfdsapoiuytrewq'

설명:

• (,\:~) y- y내림차순 ( \:~)으로 정렬 하고 추가 ( ,)합니다 y.

• x (,~|.) y-( |.) y을 뒤집어 그 앞에 추가하십시오 x.

• x F&G y-실행 (G y) F (G y), 즉 인수 F에 적용한 결과를 수행 합니다 G.

따라서 모두 함께, 알파벳을 거꾸로 Dvorak 및 reverse-QWERTY 문자열 모두에 추가 한 다음 QWERTY / 알파벳 1을 뒤집고이를 Dvorak / 알파벳 1 앞에 놓습니다.

배쉬, 64

파티에 늦었지만 64 자 해결책이 있습니다. 작동하려면 프로그램을 디스크에 저장해야합니다

echo {a..z} $(sed 1d $0|base64) {z..a};exit
««·+¢¢–¬uø!ŽIsÅËÛžjr~+•ªº'a¶{*ŽL[›ó

작동 방식 :

{a..z}그리고 {z..a}꽤 자체 설명이 있지만, 기본적으로 그것은 단지 그 각각의 범위에있는 모든 문자를 인쇄합니다.

$(sed 1d $0|base64) 프로그램을 출력하고 첫 번째 라인을 무시한 다음 base64 인코더를 통해 전달합니다 (다른 예제와 마찬가지로).

이것이 다른 유사한 예보다 짧은 이유는 ...

... {a..z}범위가 base64 인코딩보다 짧기 때문에 문자열의 절반 만 base64로 인코딩하면됩니다. 그리고 문자열에 저장하지 않고 파일에서 이진 데이터를 읽고 있기 때문에 코드의 문자를 이스케이프 처리 할 필요가 없습니다.

이 스크립트를 다시 작성하는 방법 :

코드가 Stack Exchange에서 텍스트 편집기로 올바르게 복사 / 붙여 넣지 않으면 명령 줄에서 다음을 실행하십시오 (쉘에 구애받지 않음).

echo 'echo {a..z} $(sed 1d $0|base64) {z..a};exit' > alphabetgolf
echo 'qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz' | base64 -d >> alphabetgolf

그런 다음 실행하십시오.

bash alphabetgolf

05AB1E , 25 바이트

AžW.•8t”a$äJÚ₁вƒüu¯Cê•AR»

온라인으로 사용해보십시오!

설명

A                          # Push alphabet                    
 žW                        # Push qwerty string
   .•8t”a$äJÚ₁вƒüu¯Cê•     # Push compressed dvorak string
                      AR   # Push reversed alphabet
                         » # Join entire stack with newlines

C ++

언어로 무언가를하는 가장 짧은 방법이 그것을 하드 코딩하는 것이 슬프다.

#include <iostream>

int main()
{
 std::cout<<"abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba";
}

J (77)

(,|.@(26&{.))(,~/:~@(26&{.))'qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz'

변수를 사용하여 3자를 깎았습니다.

(,|.@a)(,~/:~@(a=.26&{.))'qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz'

가치 수준의 접근 방식을 사용하여 2 자 이상의 문자를 제거했습니다.

(|.a),~t,~a=./:~26{.t=.'qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz'

하스켈 (95)

main=putStr$['a'..'z']++"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz"++['z','y'..'a']

펄 (51)

내가 할 수 없다고 말하는 규칙은 없습니다.

use LWP::Simple;print get("http://bit.ly/fGkflf");

Q (68)

.Q.a,"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz",(|:).Q.a

출력 :

"abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfg     
crlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba"

중간 2 개 하드 코딩에서 개선을 시도했지만 1 개를 찾지 못했습니다.

K-69 자

b,a,|b:a@<26#a:"qwertyuiopasdfghjklzxcvbnmpyfgcrlaeouidhtnsqjkxbmwvz"

설명:

• 26#a:-두 개의 키보드 레이아웃을에 할당 한 a다음 처음 26자를 사용합니다.

• b:a@<-정렬 a하고 다음에 할당 b: : <오름차순 정렬에 대한 순열을 제공하고 정렬 하기 위해 @색인을 생성 할 수 있습니다 a.

• b,a,|- 추가] 연속 b하고 a, 그 역방향 ( |)의 b.

피시스, 57

G"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz"VG

알파벳, 문자열, 역 알파벳. G는 알파벳입니다. 인쇄는 암시 적입니다.

Dyalog APL , 60 바이트

⎕A'QWERTYUIOPASDFGHJKLZXCVBNMPYFGCRLAOEUIDHTNSQJKXBMWVZ',⌽⎕A

인쇄물:

  ABCDEFGHIJKLMNOPQRSTUVWXYZ  QWERTYUIOPASDFGHJKLZXCVBNMPYFGCRLAOEUIDHTNSQJKXBMWVZ ZYXWVUTSRQPONMLKJIHGFEDCBA

OP에 따라 허용되는 것 :

출력은 대소 문자를 구분하지 않으며 원하는 곳에 줄 바꿈이나 공백을 추가하거나 생략 할 수 있습니다.

젤리, 36 바이트 (비경쟁)

Øa;Øq;“pyfgcrlaoeuidhtnsqjkxbmwvz”;U

온라인으로 사용해보십시오!

설명:

Øa;Øq;“pyfgcrlaoeuidhtnsqjkxbmwvz”;U    |
Øa;                                     | alphabet
   Øq;                                  | list with all rows of the qwerty keyboard
      “pyfgcrlaoeuidhtnsqjkxbmwvz”;     | string
                                   U    | reverse

05AB1E , 60 59 바이트

AÂ"qwertyuiopasdfghjklzxcvbnm""pyfgcrlaoeuidhtnsqjkxbmwvz"»

온라인으로 사용해보십시오!

AÂ -분기 알파벳을 푸시합니다.

"qwertyuiopasdfghjklzxcvbnm""pyfgcrlaoeuidhtnsqjkxbmwvz" -쿼티와 드로 박을 밀어냅니다.

» -스택을 인쇄합니다.

05AB1E , 57 바이트 (임의의 \ n에 관심이없는 경우)

AÂ"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz"»

온라인으로 사용해보십시오!