Program musi wydrukować alfabet cztery razy: najpierw w normalnej kolejności alfabetycznej, drugi w kolejności klawiatury qwerty, trzeci w kolejności klawiatury dvorak, a na końcu w odwrotnej kolejności alfabetycznej. Dane wyjściowe powinny przypominać to:

abcdefghijklmnopqrstuvwxyz
qwertyuiopasdfghjklzxcvbnm
pyfgcrlaoeuidhtnsqjkxbmwvz
zyxwvutsrqponmlkjihgfedcba

W danych wyjściowych nie jest rozróżniana wielkość liter i można dodawać lub pomijać znaki nowej linii lub spacje w dowolnym miejscu.

Haczyk : program musi mieć mniej niż 104 znaki lub, innymi słowy, być mniejszy niż długość alfabetu razy cztery.

Przyjmę odpowiedź z najkrótszym kodem, chyba że zobaczę coś naprawdę sprytnego lub interesującego, na którym jestem pod większym wrażeniem.

EDYCJA: Przyjmę najkrótszą odpowiedź w środę 27.04.2011.

EDIT2: A zwycięzcą jest (jak zwykle) Golfscript w 64 znakach ! Drugie miejsce , za którym są tylko trzy znaki, znajduje się również w Golfscript, z 67 znakami, a następnie Bash na trzecim miejscu z 72 znakami.

Ale chciałem wspomnieć o kilku innych, takich jak ten , który w zależności od twojej definicji używał tylko 52 „znaków”, i ten, w którym napisał go w języku, który stworzył.

Było kilka osób, które złamały niepisaną zasadę i się nie zakwalifikowały, ale wspomnę o nich tylko ze względu na sposób myślenia bez pudełka.

Python 2, 97 znaków

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

Sortowanie QWERTY i powrót z listy do łańcucha znaków jest krótsze niż sam alfabet! *

Inna opcja generowania alfabetu składającego się z mniejszej liczby znaków niż sam alfabet:

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

Mimo to drukuje listę znaków w języku Python.

Nie ma tu wiele do zrobienia w zakresie kompresji danych; zacięcie liter na 5 bitów pozwala zaoszczędzić tylko 39 znaków, co nie jest zbyt duże, jeśli musisz je odblokować (i nadal musisz reprezentować bajty dosłownie); wygląda na to, że zlib (przykładowo) zapisuje mniej niż 20 bajtów; kodowanie sekwencji jako listy delt do następnej litery nadal zajmuje 5 bitów dla każdej delty, ponieważ największa w tej sekwencji to -22:

[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]

_{* Chociaż tylko nieznacznie.}

PHP, 100 bajtów

Zgodnie z ISO 8859-1:

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

Aby odtwarzać niezawodnie,

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

Ruby 1.9, 88 87 84 80

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

Bash, 82

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

Python, 97 96 „znaków”

Biorąc swobodnie korzystanie ze słowa „znaki”, oto niektóre python, który używa 16-bitowych znaków Unicode do kodowania 3 normalnych znaków każdy. Program składa się w sumie z 96 znaków, z których 35 to najdziwniejsze znaki Unicode, jakie kiedykolwiek widziałem.

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

Nie jestem pewien, czy śmieci unicode przyjdą poprawnie, więc oto program w języku Python do generowania powyższego programu w języku Python:

#!/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')

Bash, 72

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

EDYCJA: usunięta tr -d.

Kredyty: Alexander, Roger.

Golfscript, 64 znaki

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

Uwaga: także 64 bajty. W rzeczywistości granie ze zmianami Unicode i podstawowymi wydaje się nieproduktywne, ponieważ basejest zbyt długim słowem kluczowym.

Windows PowerShell, 89

Niezbyt dobre, ale co najmniej krótsze niż ciąg wyjściowy:

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

O wiele krótszy teraz, kiedy zobaczyłem, że na białych znakach jest relaks. I jeszcze trochę krótszy, jeśli zignoruję przypadek, do którego mi wolno.

Golfscript, 76 , 67 znaków

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

• zmieniono kod ruby ​​na generowanie alfabetu Ventero Golfscript .

CI - 92 znaki

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

CI („Compiler / Interpreter”) to prosty język oparty na stosach, który stworzyłem dla wyzwania „Interpreter interpretujący” ( link do odpowiedzi ). Opublikowałem tę odpowiedź około dwie godziny przed opublikowaniem tego wyzwania. To nie jest GolfScript (którego do tej pory nie uczyłem się), ponieważ moim celem było skrócenie tłumacza.

Ten program musi zostać przekazany citłumaczowi przez standardowe wejście. Interpretator traktuje znaki po zakończeniu )jako dane wejściowe do programu. Mój język nie obsługuje literałów łańcuchowych, więc stdin zajmuje jego miejsce.

Python 2.7.X - jak na ironię 103 znaki ...

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

Jak się okazuje, generowanie alfabetu w pythonie wymaga więcej znaków niż jego kodowanie. Podobnie jak importowanie alfabetu. Czasami uwielbiam język skoncentrowany na czytelności.

C - 133 znaki

Skrócona wersja Casey:

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

Białe znaki:

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

Wyjście transponowane

Oto wersja, która transponuje dane wyjściowe dla zabawy. 134 znaki.

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

Białe znaki:

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

Wydruki:

AqmZ
BwpY
CeyX
DrfW
EtgV
FycU
GurT
HilS
IoaR
JpoQ
KaeP
LsuO
MdiN
NfdM
OghL
PhtK
QjnJ
RksI
SlqH
TzjG
UxkF
VcxE
WvbD
XbmC
YnwB
ZmvA

jot

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

Moje pierwsze doświadczenie z J. Ideą jest po prostu użycie kanonicznej (leksykograficznej) liczby wymaganej permutacji; niestety wymaga to więcej znaków niż kodowanie na stałe. Ale jeśli można znaleźć jakieś wyrażenie arytmetyczne (użycie mocy i tak dalej) dające magiczne liczby, można je skrócić.

Python, 90 znaków Unicode

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

uruchom na ideone - http://ideone.com/R2dlI lub codepad - http://codepad.org/lp77NL9w

JavaScript 139 121

Nowy:

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

stary:

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

Lua - 111 znaków

Bije C i C ++! :-)

print'abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba'

„Sprytna” wersja w Lua

129 znaków

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

Białe znaki:

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

C - 163 135 znaków

To nie spełnia wymagań, ponieważ zawiera ponad 104 znaki, ale fajnie było go tworzyć. Może ktoś będzie miał jakieś sugestie.

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

Kompiluje się w GCC 4.5.1 (inne niesprawdzone). Tak, pomijając #include, typy zwracane i deklaracje zmiennych! Kodowanie byłoby krótszym programem, ale to nie jest żadna zabawa.

Wersja z białymi znakami:

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

C - 124 122 lame

Oto kiepska wersja zakodowana na stałe, która wciąż nie nadaje się do cięcia.

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

PHP 88 bajtów

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

J - 69 znaków

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

Wyjaśnienie:

• (,\:~) y- Sortuj yw malejącej kolejności ( \:~) i dopisz ( ,), aby y.

• x (,~|.) y- Reverse ( |.) yi dołącz to z przodu x.

• x F&G y- Wykonaj (G y) F (G y), czyli wykonaj Fna podstawie wyników zastosowania Gargumentów.

Tak więc razem dodajemy alfabet do tyłu zarówno ciąg Dvorak, jak i wsteczny QWERTY, a następnie odwracamy QWERTY / alfabet jeden i umieszczamy go przed Dvorak / alfabet jeden.

Bash, 64

Jestem spóźniony na przyjęcie, ale mam rozwiązanie 64-znakowe. Program musi zostać zapisany na dysku do pracy

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

Jak to działa:

{a..z}i {z..a}są dość oczywiste, ale po prostu drukuje każdą postać w tym zakresie.

$(sed 1d $0|base64) wypisuje program, ignoruje pierwszy wiersz, a następnie przepuszcza go przez koder base64 (jak to zrobiły niektóre inne przykłady).

Powód jest krótszy niż w innych podobnych przykładach ...

... ponieważ {a..z}zakresy są krótsze niż kodowanie base64, więc muszę tylko kodować base64 połowę łańcucha. A ponieważ czytam dane binarne z pliku, a nie przechowuję je w ciągu, nie muszę uciekać od żadnego znaku w kodzie.

Jak odtworzyć ten skrypt:

Jeśli kod nie kopiuje się / nie wkleja poprawnie z Stack Exchange do edytora tekstowego, uruchom w wierszu poleceń następujące polecenie (niezależnie od powłoki):

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

Następnie uruchomić:

bash alphabetgolf

05AB1E , 25 bajtów

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

Wypróbuj online!

Wyjaśnienie

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 ++

To trochę smutne, gdy najkrótszym sposobem na zrobienie czegoś w języku jest zaprogramowanie go na stałe.

#include <iostream>

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

J (77)

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

Ogolono 3 znaki za pomocą zmiennej:

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

Ogolono 2 kolejne znaki, stosując podejście oparte na wartości:

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

Haskell (95)

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

Perl (51)

Nie ma reguły, która mówi, że nie mogę.

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

Q (68)

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

Wyjścia:

"abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfg     
crlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba"

Próbowałem znaleźć poprawę w kodowaniu dwóch środkowych, ale nie wpadłem na żaden.

K - 69 char

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

Wyjaśnienie:

• 26#a:- Przypisz dwa układy klawiatury do a, a następnie weź pierwsze 26 znaków.

• b:a@<- Sortuj ai przypisz to do b: <zapewnia permutację dla sortowania rosnącego i @pozwala nam indeksować aw celu sortowania.

• b,a,|- Dołącz w rzędzie b, a anastępnie do tyłu ( |) z b.

Pyth, 57

G"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz"VG

Alfabet, ciąg znaków, odwrócony alfabet. G to alfabet. Wydruk jest niejawny.

Dyalog APL , 60 bajtów

⎕A'QWERTYUIOPASDFGHJKLZXCVBNMPYFGCRLAOEUIDHTNSQJKXBMWVZ',⌽⎕A

Wydruki:

  ABCDEFGHIJKLMNOPQRSTUVWXYZ  QWERTYUIOPASDFGHJKLZXCVBNMPYFGCRLAOEUIDHTNSQJKXBMWVZ ZYXWVUTSRQPONMLKJIHGFEDCBA

Które jest dozwolone zgodnie z OP:

W danych wyjściowych nie jest rozróżniana wielkość liter i można dodawać lub pomijać znaki nowej linii lub spacje w dowolnym miejscu.

Galaretka, 36 bajtów (niekonkurencyjna)

Øa;Øq;“pyfgcrlaoeuidhtnsqjkxbmwvz”;U

Wypróbuj online!

Wyjaśnienie:

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

05AB1E , 60 59 bajtów

AÂ"qwertyuiopasdfghjklzxcvbnm""pyfgcrlaoeuidhtnsqjkxbmwvz"»

Wypróbuj online!

AÂ - wypycha rozwidlony alfabet.

"qwertyuiopasdfghjklzxcvbnm""pyfgcrlaoeuidhtnsqjkxbmwvz" - Pcha qwerty i drovak.

» - Stosy wydruków.

05AB1E , 57 bajtów (jeśli nie obchodzi Cię losowość \ n)

AÂ"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz"»

Wypróbuj online!