Bu tam metni çıkaran bir program veya işlev yazın, büyük / küçük harf duyarlı:

A, B, C, D, E, F, G,
H, I, J, K, L, M, N, O, P,
Q, R, S,
T, U, V,
W, X, Y, Z.

( Daha fazla sıkıştırılabilirlik için düzenlenmiş olsa da, birçok Amerikalı çocuğun alfabeyi ezberlemeye yardımcı olduğunu öğrendiği alfabe şarkısına dayanarak .)

Çıktı , yukarıdakiyle tamamen aynı görünmelidir (yine büyük / küçük harfe duyarsız), ancak her satırda sondaki boşlukları ve / veya sondaki yeni satırları içerebilir. Sonunda döneme dikkat edin.

Bu kod golf, yani bayt cinsinden en kısa kod kazanır.

Vim, 42 , 40 keystrokes / bytes tarafından

:h<_<cr>jjYZZP:s/./&, /g<cr>7f r<cr>9;.3;.3;.$ch.

Lynn ve müthiş vim cevabını ipucundan yardım alfabesini kapmak için teşekkürler .

İki bayt tasarrufu için RomanGräf'a teşekkürler!

Açıklama:

:h<_<cr>                                      " Open up vim-help
        jj                                    " Move down two lines
          Y                                   " Yank this line (containing the alphabet)
           ZZ                                 " Close this buffer
             P                                " Paste the line we just yanked
              :s/./&, /g<cr>                  " Replace every character with that character followed by a comma and a space
                            7f                " Find the seven space on this line
                               r<cr>          " And replace it with a newline
                                    9;        " Repeat the last search (space) 9 times
                                      .       " Repeat the last edit (replace with a newline)
                                       3;     " Third space
                                         .    " Replace with newline
                                          3;  " Third space
                                            . " Replace with newline

Ardından, satırın sonunu ile birlikte hareket ettiririz, ile $karakter değiştiririz chve bir nokta ekleriz.

05AB1E , 16 bayt

kod

A',â79334S£»¨'.J

Açıklama:

A                  # Push the alphabet.
 ',â               # Cartesian product with ','.
    79334S         # Push [7, 9, 3, 3, 4].
          £        # Contigious substring, pushes the substrings [0:7], [7:7+9], 
                     [7+9:7+9+3], [7+9+3:7+9+3+3], [7+9+3+3:7+9+3+3+4].
           »       # Gridify, join the inner arrays with spaces and join those arrays
                     with newlines.
            ¨      # Remove the last character.
             '.J   # Append a '.'-character.

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin!

Bash + GNU yardımcı programları, 36

• Neil sayesinde 5 bayt kurtarıldı.

echo {A..Y}, Z.|sed 's/[HQTW]/\n&/g'

Ideone.

JavaScript (ES6), 66 65 bayt

Dayak @Neil ben yaptım o en niçin ... imkansızdı. :-)

f=(i=10)=>i>34?"z.":i.toString(++i)+","+` 
`[9568512>>i-9&1]+f(i)

@LevelRiverSt hilesi sayesinde Golf 1 bayt . Kullanımı String.fromCharCode7 bayttır:

f=(i=65)=>i>89?"Z.":String.fromCharCode(i,44,i%86%83%80%71?32:10)+f(i+1)

Nasıl çalışır

Bu yinelemeli gelen alfabenin her bir karakteri üretir aiçin ykullanarak, .toString(). Her harften sonra virgül eklenir, artı 9568512>>i-9&11 ise yeni bir satır veya başka bir boşluk eklenir . Özyineleme 34'ü geçtiğinde, yani zfonksiyona basit bir şekilde döner "z.".

Python 2.7, 67 66 63 bayt

a=65;exec"print'%c'%a+',.'[a>89]+'\\n'[a%42%39%9^2:],;a+=1;"*26

Dennis bir bayt kurtardı.

Jöle , 19 18 bayt

ØAp”,ṁ79334DR¤GṖ”.

1 bayt golf attığı için @Adnan'a teşekkürler!

Çevrimiçi deneyin!

Nasıl çalışır

ØAp”,ṁ79334DR¤GṖ”.  Main link. No arguments.

ØA                  Yield "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
  p”,               Cartesian product with ','; append a comma to each letter.
             ¤      Combine the two links to the left into a niladic chain.
      79334D          Decimal; yield [7, 9, 3, 3, 4].
            R         Range; yield [[1, 2, 3, 4, 5, 6, 7], ..., [1, 2, 3, 4]].
     ṁ              Mold; reshape the array of letters with commata like the
                    generated 2D array.
              G     Grid; separate rows by spaces, columns by linefeeds.
               Ṗ    Pop; discard the last comma.
                ”.  Print the previous result and set the return value to '.'.
                     (implicit) Print the return value.

JavaScript (ES6), 80 74 bayt

_=>[...`ABCDEFGHIJKLMNOPQRSTUVWXYZ`].join`, `.replace(/[HQTW]/g,`
$&`)+`.`

ISO-8859-1 kodlamasını nasıl kullanabileceğinizi hesaplayabilirseniz, bunu atob / btoa ile kısaltmak mümkündür. Düzenleme: @RickHitchcock sayesinde 6 bayt kaydedildi.

Pyke, 23 19 17 bayt

G\,J\.+2cu  /P

Burada dene!

G\,J\.+        -    ",".join(alphabet)+"."
       2c      -   split(^, size=2)
            /  -  split_sized(^, V)
         u     -   yield list [7,9,3,3] (actual bytes `u%04%07%09%03%03`)
             P - print(^)

R, 83 71 bayt

a=rbind(LETTERS[-26],","," ");a[3,7+3*c(0,3:5)]="\n";cat(a,"Z.",sep="")

Çevrimiçi deneyin!

3 satırlık bir matris yapar (biri harflerle, biri virgüllerle, diğeri boşluk veya yeni satırla).

Düzenleme : Teşekkürler Billywob!

CJam, 26 bayt

'A79333Ab{{',S2$)}*N\}/'.@

Çevrimiçi tercüman

'A                             Push 'A'
  79333Ab                      Push [7 9 3 3 3]
         {           }/        For each number n in the previous array...
          {      }*              Execute n times...
           ',S                     Push a comma and a space
              2$)                  Copy last letter and increment
                   N\            Place a newline under the letter on top
                       '.@     Push '.' and rotate

Brainfuck, 117 bayt

+[++[-<]-[->->]<]+++[->++>+++>+>+<<<<<--<<->>>]>+[[-<<<<<+.>-.+>.>>>]>[[-<+>]>]<<[<]<.>>]<<-[---<<<+.>-.+>.>]<<<+.>+.

İlk dört satırın her biri sonda bir boşluğa sahiptir ve program 8 bitlik hücreleri üstlenir. Çevrimiçi deneyin!

^{(Son çizgiyi kullanmak zor.)}

Perl, 37 bayt

Bu çözüm için @Dom Hastings'in kredisi (benimkinden 3 byte, bkz. Feryat ).

say+(map"$_, ".$/x/[GPSV]/,A..Y),"Z."

-E(Veya -M5.010) bayrağıyla çalıştır :

perl -E 'say+(map"$_, ".$/x/[GPSV]/,A..Y),"Z."'

Önceki sürümüm, 3 bayt daha uzun (toplam 40 bayt):

perl -E '$_=join", ",A..Z;s/[HQTW]/\n$&/g;say"$_."'

JavaScript (ES6), 66 64 bayt

_=>`ABCDEFG
HIJKLMNOP
QRS
TUV
WXY`.replace(/./g,"$&, ")+"Z."

Regex karakterlerle eşleşir ancak satırbaşının satırlarını döndürmez, bu nedenle regex change kullanarak her karaktere "," ekleyebilirim.

Düzenleme: ETHProductions sayesinde 2 karakter kaldırıldı

Çedar, 70 bayt

->[65@"71,72@"80,"QRS","TUV","WXYZ"].map(@.chars.join(", ")).vfuse+'.'

Bundan daha kısa olmuyor gibi görünüyor. Bunun oldukça ilginç yöntemler kullanan başka sürümleri de yaptım ama bu en kısa

Çevrimiçi deneyin!

açıklama

->                        // Function with no arguments
  [                       // Array, each item represents a line
   65@"71,                // See below on what @" does
   72@"80,
   "QRS",
   "TUV",
   "WXYZ"
  ].map(                  // On each item...
    @.chars.join(", ")    // Join the characters on ", "
  ).vfuse                 // Vertical fuse or join by newlines
  + '.'                   // The period at the end

@"Operatör değişmekteydi dize oluşturmak için kullanılır. Sol karakter kodundan başlayarak sağ karakter koduna kadar bir dize oluşturur.

Örneğin, ve için 65char kodudur . Yapmak , A'dan Z'ye veya alfabe oluşturur.A90Z65 @" 90

C 112 102 81 bayt

Cleblanc & LevelRiverSt'e teşekkürler!

i,c;main(){for(c=64;++c<91;)printf("%c%c%c",c,44+c/90*2,c=="‌​GPSVZ"[i]?++i,10:32)‌​;}

Brainfuck, 157 bayt

+++++[>+>+++<<-]>>[->+>++++>+++>++<<<<]>----->+++++.>-.>++.<<<<<+[->>>+.>.>.<<<<<]+++++++++>>.<<[->>>+.>.>.<<<<<]<---[+>+++>>.<<[->>>+.>.>.<<<<<]<]>>>>+.>++.

Çevrimiçi deneyin

Ruby, 56 54 bayt

$><<(?A..?Y).map{|c|c+('GPSV'[c]?",
":", ")}.join+"Z."

İlk satır değişmez bir yeni satırla bitiyor.

Düzenle:'A'..'Y' ile değiştirerek iki bayt kurtardı ?A..?Y.

Vim, 32 bayt

26o<C-V><C-V>64,<Esc>r.V{g<C-A>8Jj9Jj3Jj.j4JcH<C-R>"

Sonunda boş bir çizgi bırakır, buna izin verilir, ancak bu kadar sakar olmak çok garip. Daha da kötüsü, insert modunda bitiyorum. Başkalarının burada yaptığını gördüm, sanırım izin var mı? Kirli hissediyor.

• 26o<C-V><C-V>64,<Esc>: Birincisi <C-V>, ikincisini anlamıyla ekler. <C-V>64Tamponu içinde bu yapraklar daha sonra harflerin içine, ASCII kod noktaları haline alınacak. Virgül zaten içinde.
• r.: Bir daha asla sonunda olmayacak, .şimdi yap.
• V{g<C-A>: Tüm 64s harflerini büyük harflerin ASCII kod noktalarına dönüştürmek için görsel artış kullanır .
• 8Jj9Jj3Jj.j4J: Rasgele çizgi katılır. Birincisi 8Jbunun yerine 7Jçünkü boş çizgiyle uğraşıyoruz. Tekrarlanan 3Js, nokta tekrarı için uygundur.
• cH<C-R>": İnsanlar genellikle i<C-R>ekleme modu yapıştırması olarak düşünür , ancak daha çok ekleme modu makrosu gibidir. Gibi şeyler yazmış gibi <C-V>65çalışacak ve ondalık kod noktası olarak yorumlanacaktır. Bu, sonunda ekstra (izin verilen) bir çizgi bırakır ve ekleme modunda kalır.

PowerShell v3 +, 60 78 67 bayt

-join(65..90|%{[char]$_+'.,'[$_-le89]+" "+"`n"*($_-in71,80,83,86)})

TAMAM. Aslında bu sefer okudum, anladım ve izledim. Söz vermek. : D

Diziyi alır 65..90ve her elemanın üzerinde döner |%{...}. Her yineleme, birleştirme, dizin oluşturma ve çarpma kullanarak yeni bir dize oluşturuyoruz.

İlk önce, şu anki sayıyı alıp charASCII harfi yapmak için atarız . Bu dizeye endeksleme dayalı başka karakter ile birleştirilmiş oluyor '.,'biz de olsanız 90veya olmasın (yani için hesaba Z.her şey virgül olmak yerken). Bu " ", harfleri boşlukla ayırmak için birleştirilmiş dize "`n"ve geçerli öğenin -inbelirtilen dizi olup olmadığına ilişkin Boolean değerine dayalı dize çarpımı (yani, yeni satır karakterinde birleştirme yapmamız gerekip gerekmediği). Elde edilen dize boru hattında bırakılır.

Bu dizgiler parenler içinde kapsüllenir ve -joinbirlikte yeni bir dizgide birleştirilir, bu daha sonra da boru hattında bırakılır Write-Outputve sonunda örtük olarak sonuç yazdırılır. Elimizdeki bu yana `ndizede, otomatik olarak baskı üzerine satırsonlarına dönüştürülür.

-inOperatör için v3 + gerektirir . Her satırda, meydan okumaya göre her şey yolunda olan derli toplu bir alanı var.

Örnek

PS C:\Tools\Scripts\golfing> .\now-i-know-my-abc.ps1
A, B, C, D, E, F, G, 
H, I, J, K, L, M, N, O, P, 
Q, R, S, 
T, U, V, 
W, X, Y, Z. 

PHP, 62 Bayt

<?=preg_filter("# ([HQTW])#","\n$1",join(", ",range(A,Z)));?>.

sadece karşılaştırma için 87 Bayt

<?="A, B, C, D, E, F, G,\nH, I, J, K, L, M, N, O, P,\nQ, R, S,\nT, U, V,\nW, X, Y, Z.";

MATL, 38 29 bayt

@Luis sayesinde 9 bayt kaydedildi!

1Y2X{', '&Zc46h1[CEII]I*11hY{

Çevrimiçi Deneyin!

açıklama

1Y2     % Push the upper-case alphabet to the stack
X{      % Break the character array into a cell array (similar to a list)
        % where each element is a letter
', '&Zc % Combine back into a string with ', ' between each element
46h     % Append '.' (via ASCII code) to the end of the string
1       % Push the number 1
[CEII]  % Push the array: [7, 9, 3, 3]
I*      % Multiply this array by 3: [21, 27, 9, 9]  
llh     % Append an 11 to this array: [21, 27, 9, 9, 11] 
Y{      % Break our comma-separated list of characters into groups of this size
        % Implicitly display the result

R, 146 bayt

L=LETTERS
f=function(x,y=""){paste(x,collapse=paste0(", ",y))}
cat(f(c(f(L[1:7]),f(L[8:16]),f(L[17:19]),f(L[20:22]),f(L[23:26])),"\n"),".",sep="")

Açıklama:

LETTERSbüyük harfler için önceden tanımlanmıştır. Fonksiyon vektörü x birbirine bağlanması için olan ek ile (yeni satır için kullanılır). Kedi, yeni satırlar olarak basıldığı için kullanılır . Harflerin üzerine satırlar, daha sonra da satırların tamamı çıktının oluşturulması için çağrılır.
f,y
\nf

Muhtemelen golf oynayabilirim - f'nin birden fazla çağrısından hoşlanmıyorum ...

CJam, 31 bayt

'[,65>", "*7933Ab{3*/(\:+}%N*'.

Açıklama:

'[,65>                             push uppercase alphabet
      ", "*                        ", " between all letters
           7933Ab                  push [7 9 3 3]
                 {3*/(\:+}%        slices of lengths 21, 27, 9, 9
                           N*'.    join slices with newlines, add final "."

Çevrimiçi deneyin

Julia, 71 bayt

f()=join(join.(['A':'G','H':'P',"QRS","TUV","WXYZ"],[", "]),",\n")*"."

Yayın için 0.5 ya da daha iyisi gerekir .()

Çedar, 57 bayt

->(65@"90).sub(/[GPSV]/g,"$0
").sub(/[^Z\n]/g,"$0, ")+"."

Çevrimiçi deneyin! Bu güzel değil mi Güzel bir dikdörtgen.

İki regex ikamesi. (65@"90)Büyük harf alfabesi olduğunu, .sub(/[GPSV]/g,"$0\n")yerini GPSVkendisiyle ve "\n", .sub(/[^Z\n]/g,"$0, ")olmayan tüm yeni satır ve yerini Zkendisi ile karakterleri ve ", "ve "."nihai ekler ..

Japt, 24 bayt

;B¬qJ+S r"[HQTW]"@R+XÃ+L

Çevrimiçi test edin!

Nasıl çalışır

;                        // Reset various variables. B is set to "ABC...XYZ", J is set to ",", and L is set to ".".
 B¬                      // Take the uppercase alphabet and split into chars.
   qJ+S                  // Join with ", ".
        r"[HQTW]"        // Replace each H, Q, T, or W with
                 @R+XÃ   //   a newline plus the character.
                      +L // Append a period to the result.
                         // Implicit: output last expression

Java, 116 109 105 104

String f(){String s="";for(char c=65;c<91;)s=s+c+(c>89?46:',')+("GPSV".indexOf(c++)<0?' ':10);return s;}

Ungolfed:

String f() {
  String s = "";
  for (char c = 65; c < 91;) {
    s = s + c
      + (c > 89 ? 46 : ',')
      + ("GPSV".indexOf(c++) < 0 ? ' ' : 10);
  }
  return s;
}

q, 46 bayt

-1@'(", "sv/:0 7 16 19 22_,:'[.Q.A]),'",,,,.";

Retina, 43 bayt

Z
{2`
$`
}T01`L`_L
.
$&, 
[HQTW]
¶$&
, $
.

Lider yeni hat önemlidir. Çevrimiçi deneyin!

Bu benim Retina'yı ilk kez kullanıyorum, bu yüzden herhangi bir golf ipucu için teşekkür ederiz ...

Pyth, 25 bayt

+Pjmj\ dc*G\,j94092 23)\.

Sonucu STDOUT'a basan bir program.

Çevrimiçi deneyin

Nasıl çalışır

+Pjmj\ dc*G\,j94092 23)\.  Program. Input: none
          G                Yield string literal'abcdefghijklmnopqrstuvwxyz'
         * \,              Cartesian product of that with ',', yielding a list of
                           characters with appended commas
             j94092 23)    Yield the integer 94092 in base-23, giving [7, 16, 19, 22]
        c                  Split the comma-appended character list at those indices
   mj\                     Join each element of that on spaces
  j                        Join that on newlines
 P                         All but the last element of that, removing trailing ','
+                      \.  Append '.'
                           Implicitly print