Program alfabeyi dört kez basmalıdır: ilk önce normal alfabetik sıraya, ikinci qwerty klavye sırasına, üçüncü dvorak klavye sırasına ve son olarak ters alfabetik sıraya göre. Çıktı buna benzemelidir:

abcdefghijklmnopqrstuvwxyz
qwertyuiopasdfghjklzxcvbnm
pyfgcrlaoeuidhtnsqjkxbmwvz
zyxwvutsrqponmlkjihgfedcba

Çıktı büyük / küçük harfe duyarlı değildir ve istediğiniz yere yeni satırlar veya boşluklar ekleyebilir veya atlayabilirsiniz.

Yakalama : program 104 karakterden az veya bir başka deyişle, dört alfabe süresinin uzunluğundan daha küçük olmalıdır.

Daha etkilendiğim çok zeki veya ilginç bir şey görmezsem, cevabı en kısa kodla kabul edeceğim.

EDIT: 4/27/2011 Çarşamba günü en kısa cevabı kabul edeceğim.

EDIT2: Ve kazanan (her zamanki gibi) 64 karakterde Golfscript ! Sadece üç karakter geride olan ikinci , Golfscript'te 67 karakter, ardından Bash üçüncü sırada yer alıyor .

Ama örneğin Bahsetmek istediğim birkaç diğerleri vardı bu bir tanımına bağlı olarak, sadece 52 "karakterleri" kullanılmış, ve bu bir o oluşturulan bir dille yazdım.

Orada bir vardı birkaç kişi yazılı olmayan kuralı çiğnedi ve hak etmedi, ama sadece kutusuz düşünme tarzlarına için onlara belirtilecek.

Python 2, 97 karakter

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

QWERTY'yi sıralama ve listeden dizgeye geri dönüştürme alfabenin kendisinden daha kısadır! *

Alfabeyi alfabenin kendisinden daha az karakterde oluşturmak için başka bir seçenek:

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

Bu bir Python karakter listesi yazdırmasına rağmen.

Veri sıkıştırma yolunda burada yapılacak çok şey yok; Harfleri 5 bitte sıkıştırarak yalnızca 39 karakter kaydeder, bu sayede onları açmak zorunda kalmazsanız (ve yine de baytları tam anlamıyla temsil etmelisiniz); zlib'e benziyor (örnek olarak) 20 bayttan daha az tasarruf sağlıyor; diziyi bir sonraki harfe bir delta listesi olarak kodlamak hala her delta için 5 bit almaktadır, çünkü bu dizinin en büyüğü -22'dir:

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

_{* Sadece hafif olmasına rağmen.}

PHP, 100 bayt

ISO 8859-1 olarak:

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

Güvenilir bir şekilde üremek,

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 "karakter"

"Karakterler" kelimesini liberal olarak kullanmanız, işte her biri 3 normal karakteri kodlamak için 16 bitlik unicode karakterleri kullanan bir python. Program toplam 96 karakterden oluşuyor ve bunlardan 35 tanesi şimdiye kadar gördüğüm en tuhaf unicode karakter.

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

Unicode çöpünün doğru geleceğinden emin değilim, işte yukarıdaki python programını oluşturmak için bir python programı:

#!/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}

EDIT: kaldırıldı tr -d.

Kredi: Alexander, Roger.

Golfscript, 64 karakter

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

Not: Ayrıca 64 bayt. Aslında, Unicode ve temel değişikliklerle oynamak, basebir anahtar kelime için çok uzun olduğu için verimsiz görünüyor .

Windows PowerShell, 89

Özellikle iyi değil, ancak en azından çıkış dizesinden daha kısa:

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

Şimdi daha kısa, boşlukta bir gevşeme olduğunu gördüm. Ve izin verdiğim davayı görmezden gelirsem, hala biraz daha kısa.

Golfscript, 76 , 67 karakter

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

• yakut kodunu Ventero'nun Golfscript alfabe nesline değiştirdi .

CI - 92 karakter

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

CI ("Derleyici / Tercüman"), "Kendinden Tercüman Tercüman" yarışması için oluşturduğum basit bir yığın tabanlı dildir ( cevap bağlantısı ). Bu cevabın yayınlanmasından iki saat önce bu cevabı gönderdim. Amacım yorumlayıcıyı kısa yapmaktı, çünkü GolfScript değil (hala öğrenmeyi öğrenmedim).

Bu program cistandart girdi yoluyla tercümana iletilmelidir. Tercüman ), programın girişi olarak sonlandırıldıktan sonra karakterleri ele alır . Dilim string değişmezleri desteklemiyor, bu yüzden stdin yerini alıyor.

Python 2.7.X - İronik olarak 103 karakter ...

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

Görünüşe göre, python'da alfabenin oluşturulması, onu zor kodlamaktan daha fazla karakter alır. Alfabeyi ithal ediyor. Bazen okunabilirlik merkezli bir dili sevmeliyim.

C - 133 karakter

Casey'den kısaltılmış versiyon:

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

Whitespaced:

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

Transfer çıktı

İşte eğlence için, çıktı aktarılan bir versiyonudur. 134 karakter.

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

Whitespaced:

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

Baskılar:

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

J

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

J ile ilk deneyimim, fikir basitçe gerekli izinlerin kanonik (sözlükbilimsel) sayısını kullanmak; Maalesef, bu kodlamadan daha çok karakter gerektiriyor. Fakat eğer sihirli sayıları veren bazı aritmetik ifadeler (güç kullanarak ve olmayan) bulunabilirse, kısaltılabilir.

Python, 90 unicode karakter

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

ideone olarak çalıştırın - http://ideone.com/R2dlI veya codepad - http://codepad.org/lp77NL9w

Javascript 139 121

yeni:

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

eski:

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

Lua - 111 karakter

C ve C ++ 'ı yener! :-)

print'abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba'

Lua "Zeki" sürümü

129 karakter

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

Whitespaced:

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

C - 163 135 karakter

Bu, 104'ten fazla karakterde göründüğü gibi gereksinimleri karşılamıyor, ancak yapımı eğlenceli oldu. Belki birisinin bazı önerileri olacaktır.

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

Bu, GCC 4.5.1'de (diğerleri denenmemiş) derlenir. #İncludes, return tipleri ve değişken bildirimlerini ihmal etmek için Yay! Sabit kodlama daha kısa bir programla sonuçlanabilirdi, ancak bu hiç eğlenceli değil.

Boşluklu sürüm:

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 topal

İşte topal kodlanmış versiyonu ve hala kesme yapmıyor.

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

PHP 88 bayt

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

J - 69 karakter

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

Açıklama:

• (,\:~) y- yAzalan sırayla ( \:~) sıralayın ve ekleyin ( ,) y.

• x (,~|.) y- ( |.) Ters yve bunu önüne ekleyin x.

• x F&G y- Yürüt (G y) F (G y), yani, bağımsız değişkenlere Fbaşvurmanın sonuçlarını gerçekleştir G.

Böylece hep birlikte, alfabeyi hem Dvorak hem de QWERTY dizgilerine geriye doğru ekleriz, ardından QWERTY / alfabeyi tersine çevirir ve bunu Dvorak / alfabenin önüne koyarız.

Bash, 64

Partiye çok geç kaldım, ama 64 karakterli bir çözümüm var. Programın çalışması için diske kaydedilmesi gerekiyor

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

Nasıl çalışır:

{a..z}ve {z..a}oldukça açıklayıcıdır, fakat temelde bu aralıktaki her karakteri basar.

$(sed 1d $0|base64) programı çıktılar, ilk satırı yok sayar, sonra bir base64 kodlayıcıdan geçirir (diğer bazı örnekler gibi).

Bunun nedeni diğer benzer örneklerden daha kısa ...

... çünkü {a..z}aralıklar base64 kodlamalarından daha kısa olduğundan, sadece dizgenin yarısını base64 kodlamak zorunda kalıyorum. Ve bir dizgede saklamak yerine ikili verileri dosyadan okuduğum için kodda herhangi bir karakterden kaçmaya ihtiyacım yok.

Bu komut dosyası nasıl yeniden oluşturulur:

Kod, Stack Exchange'den metin editörünüze doğru şekilde kopyalayıp yapıştırmıyorsa, aşağıdaki komutu komut satırınızda çalıştırın (kabuk agnostic):

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

Sonra çalıştırmak için:

bash alphabetgolf

05AB1E , 25 bayt

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

Çevrimiçi deneyin!

açıklama

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

Bir dilde bir şeyi yapmanın en kısa yolu, onu zorlaştırmaktır.

#include <iostream>

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

J (77)

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

Bir değişken kullanarak 3 karakter traşlandı:

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

Değer seviyesi yaklaşımı kullanarak 2 karakter daha silindi:

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

Haskell (95)

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

Perl (51)

Yapamayacağımı söyleyen bir kural yok.

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

S (68)

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

Çıktılar:

"abcdefghijklmnopqrstuvwxyzqwertyuiopasdfghjklzxcvbnmpyfg     
crlaoeuidhtnsqjkxbmwvzzyxwvutsrqponmlkjihgfedcba"

Ortadaki ikisini zor kodlama konusunda bir gelişme bulmaya çalıştım ancak bir tanesini bulamadım.

K - 69 karakter

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

Açıklama:

• 26#a:- İki klavye düzenini atayın ave sonra ilk 26 karakteri alın.

• b:a@<- aBunu sıralayın ve atayın b: <artan bir sıralama için @izin verir ave sıralamak için indekslememize izin verir .

• b,a,|- Bir satıra ekle b, sonra a, ardından geri ( |) b.

Pyth, 57

G"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz"VG

Alfabe, dize, ters alfabe. G, alfabedir. Baskı çok açık.

Dyalog APL , 60 bayt

⎕A'QWERTYUIOPASDFGHJKLZXCVBNMPYFGCRLAOEUIDHTNSQJKXBMWVZ',⌽⎕A

Baskılar:

  ABCDEFGHIJKLMNOPQRSTUVWXYZ  QWERTYUIOPASDFGHJKLZXCVBNMPYFGCRLAOEUIDHTNSQJKXBMWVZ ZYXWVUTSRQPONMLKJIHGFEDCBA

OP uyarınca izin verilenler:

Çıktı büyük / küçük harfe duyarlı değildir ve istediğiniz yere yeni satırlar veya boşluklar ekleyebilir veya atlayabilirsiniz.

Jöle, 36 bayt (yarışmaz)

Øa;Øq;“pyfgcrlaoeuidhtnsqjkxbmwvz”;U

Çevrimiçi deneyin!

Açıklama:

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

05AB1E , 60 59 bayt

AÂ"qwertyuiopasdfghjklzxcvbnm""pyfgcrlaoeuidhtnsqjkxbmwvz"»

Çevrimiçi deneyin!

AÂ - çatallanmış alfabeyi iter.

"qwertyuiopasdfghjklzxcvbnm""pyfgcrlaoeuidhtnsqjkxbmwvz" - Qwerty ve drovak'ı iter.

» - Yığın yazdırır.

05AB1E , 57 bayt (Rastgele umursamıyorsanız \ n)

AÂ"qwertyuiopasdfghjklzxcvbnmpyfgcrlaoeuidhtnsqjkxbmwvz"»

Çevrimiçi deneyin!