Schreiben Sie ein Programm oder eine Funktion, die genau diesen Text ausgibt, wobei die Groß- und Kleinschreibung keine Rolle spielt:

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.

(Basierend auf dem Alphabet-Song , den viele amerikanische Kinder lernen, das Alphabet auswendig zu lernen, obwohl es für mehr Komprimierbarkeit bearbeitet wurde.)

Die Ausgabe muss genau so aussehen wie oben (Groß- / Kleinschreibung wird nicht berücksichtigt ), darf jedoch nachgestellte Leerzeichen in jeder Zeile und / oder nachgestellten Zeilenumbrüchen enthalten. Beachten Sie den Punkt am Ende.

Das ist Code-Golf, also gewinnt der kürzeste Code in Bytes.

Vim, 42 , 40 Tastenanschläge / Byte

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

Vielen Dank an Lynn und ihre großartige Antwort für den Tipp, das Alphabet aus der Hilfe zu holen.

Danke an RomanGräf für das Speichern von zwei Bytes!

Erläuterung:

: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

Dann verschieben wir das Ende der Zeile mit $, ändern ein Zeichen mit zurück chund fügen einen Punkt ein.

05AB1E , 16 Bytes

Code

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

Erläuterung:

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.

Verwendet die CP-1252- Codierung. Probieren Sie es online!

Bash + GNU-Dienstprogramme, 36

• 5 Bytes gespart dank Neil.

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

Ideone.

JavaScript (ES6), 66 65 Bytes

@Neil zu schlagen war unmöglich ... Deshalb habe ich es getan. :-)

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

1 Byte dank eines Tricks von @LevelRiverSt . Using String.fromCharCodeist 7 Bytes länger:

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

Wie es funktioniert

Dies erzeugt rekursiv jedes Zeichen des Alphabets von abis ymit .toString(). Nach jedem Buchstaben wird ein Komma sowie ein Zeilenumbruch, wenn 9568512>>i-9&11, oder ein Leerzeichen angehängt . Wenn die Rekursion über 34 hinausgeht, dh bis z, kehrt die Funktion einfach zurück "z.".

Python 2.7, 67 66 63 Bytes

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

Dennis hat ein Byte gespeichert.

Jelly , 19 18 Bytes

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

Vielen Dank an @Adnan für das Golfen ab 1 Byte!

Probieren Sie es online!

Wie es funktioniert

Ø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 bis 74 Byte

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

Möglicherweise kann dies mit atob / btoa verkürzt werden, wenn Sie die Verwendung der ISO-8859-1-Codierung kennen. Bearbeiten: 6 Bytes dank @RickHitchcock gespeichert.

Pyke, 23 19 17 Bytes

G\,J\.+2cu  /P

Probieren Sie es hier aus!

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 Bytes

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

Probieren Sie es online!

Erstellt eine Matrix aus 3 Zeilen (eine mit den Buchstaben, eine mit den Kommas und die andere mit einem Leerzeichen oder einer Newline).

Edit : Danke Billywob!

CJam, 26 Bytes

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

Online-Dolmetscher

'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 Bytes

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

Die ersten vier Zeilen haben jeweils ein Leerzeichen am Ende, und das Programm geht von 8-Bit-Zellen aus. Probieren Sie es online!

^{(Die Behandlung der letzten Zeile ist schwierig ...)}

Perl, 37 Bytes

Dank an @Dom Hastings für diese Lösung (3 Bytes kürzer als meine, siehe unten).

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

Mit -E(oder -M5.010) Flag ausführen:

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

Meine vorherige Version, 3 Bytes länger (insgesamt 40 Bytes):

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

JavaScript (ES6), 66 64 Bytes

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

Regex stimmt mit den Zeichen überein, aber nicht mit den Zeilenumbrüchen. Mit Regex Replace kann ich jedem Zeichen das "," hinzufügen.

Bearbeiten: 2 Zeichen dank ETHProductions entfernt

Cheddar, 70 Bytes

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

Sieht so aus, als würde es nicht kürzer werden. Ich habe andere Versionen davon gemacht, die ziemlich interessante Methoden verwenden, aber dies ist die kürzeste

Probieren Sie es online!

Erläuterung

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

Der @"Operator wird verwendet, um Zeichenfolgenbereiche zu generieren. Es wird eine Zeichenfolge generiert, die vom linken Zeichencode bis zum rechten Zeichencode beginnt.

Zum Beispiel 65ist der Zeichencode für Aund 90für Z. Wenn Sie 65 @" 90dies tun , werden A bis Z oder das Alphabet generiert.

C, 112 102 81 Bytes

Vielen Dank an cleblanc & LevelRiverSt!

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 Bytes

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

Probieren Sie es online aus

Ruby, 56 54 Bytes

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

Die erste Zeile endet mit einem wörtlichen Zeilenumbruch.

Bearbeiten: speicherte zwei Bytes durch Ersetzen 'A'..'Y'durch ?A..?Y.

Vim, 32 Bytes

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

Lässt am Ende eine leere Zeile, was erlaubt war, aber es ist seltsam, so ungeschickt zu sein. Schlimmer noch, ich ende im Einfügemodus. Ich habe einige andere Leute gesehen, die es hier gemacht haben, also denke ich, ist es erlaubt? Es fühlt sich schmutzig an.

• 26o<C-V><C-V>64,<Esc>: Beim ersten <C-V>wird der zweite buchstäblich eingefügt. Die <C-V>64im Puffer verbleibenden Zeichen werden in ASCII-Codepunkte und dann in Buchstaben umgewandelt. Kommas schon in.
• r.: Nie wieder am Ende sein, also mach das .jetzt.
• V{g<C-A>: Verwendet visuelles Inkrement, um alle 64s in die ASCII-Codepunkte der Großbuchstaben umzuwandeln.
• 8Jj9Jj3Jj.j4J: Die beliebige Leitung wird verbunden. Erstens ist 8Jstatt , 7Jweil wir mit der Leerzeile zu tun hat . Die wiederholten 3Js sind für eine Punktwiederholung geeignet.
• cH<C-R>": Die Leute denken normalerweise an i<C-R>Einfügemodus Einfügen, aber es ist eher wie ein Einfügemodus Makro. Sachen wie <C-V>65laufen wie geschrieben und werden als Dezimalpunkt interpretiert. Dies lässt eine zusätzliche (erlaubte) Zeile am Ende und bleibt im Einfügemodus.

PowerShell v3 +, 60 78 67 Bytes

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

OKAY. Dieses Mal habe ich die Spezifikation tatsächlich gelesen, verstanden und befolgt. Versprechen. : D

Übernimmt das Array 65..90und durchläuft jedes Element |%{...}. Bei jeder Iteration wird eine neue Zeichenfolge mithilfe von Verkettung, Indizierung und Multiplikation erstellt.

Zuerst nehmen wir die aktuelle Nummer und charwandeln sie in einen ASCII-Buchstaben um. Das ist mit einem anderen Zeichen verknüpft, basierend auf der Indizierung in der Zeichenfolge, '.,'ob es sich um ein Komma handelt 90oder nicht Z.. Das ist eine Zeichenfolge, die verkettet wird " ", um die Buchstaben durch Leerzeichen zu trennen, und eine Zeichenfolgenmultiplikation "`n"basierend auf dem Booleschen Wert, um festzustellen, ob das aktuelle Element -indas angegebene Array ist (dh ob ein Zeilenumbruchzeichen verkettet werden muss). Die resultierende Zeichenfolge verbleibt in der Pipeline.

Diese Zeichenfolgen werden in Parens eingekapselt und -joinzu einer neuen Zeichenfolge zusammengefasst, die dann ebenfalls in der Pipeline verbleibt und Write-Outputam Ende implizit das Ergebnis ausgibt. Da `ndie Zeichenfolge vorhanden ist, wird sie beim Drucken automatisch in Zeilenumbrüche konvertiert.

Benötigt v3 + für den -inOperator. Verfügt über ein Leerzeichen in jeder Zeile, was gemäß den Herausforderungsspezifikationen in Ordnung ist.

Beispiel

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 Bytes

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

nur zum Vergleich 87 Bytes

<?="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 Bytes

9 Bytes gespart dank @Luis!

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

Probieren Sie es online!

Erläuterung

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 Bytes

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="")

Erläuterung:

LETTERSist für Großbuchstaben vordefiniert.
Die fFunktion dient zum Verketten des Vektors x on ,mit additional y(wird für Zeilenumbrüche verwendet).
Die Katze wird verwendet, wenn sie \nals Zeilenumbruch gedruckt wird. fwird für die Buchstaben aufgerufen, um Zeilen zu bilden, und dann für die Zeilen erneut, um die gesamte Ausgabe zu bilden.

Wahrscheinlich golfen - ich mag die mehrfachen Anrufe von f nicht ...

CJam, 31 Bytes

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

Erläuterung:

'[,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 "."

Probieren Sie es online aus

Julia, 71 Bytes

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

Benötigt 0,5 oder besser für den Rundfunk .()

Cheddar, 57 Bytes

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

Probieren Sie es online! Ist das nicht schön Es ist ein schönes Rechteck.

Zwei Regex-Substitutionen. (65@"90)ist das Alphabet in Großbuchstaben, .sub(/[GPSV]/g,"$0\n")ersetzt GPSVdurch sich selbst und "\n", .sub(/[^Z\n]/g,"$0, ")ersetzt alle Nicht-Zeilenumbrüche und Z-Zeichen durch sich selbst ", "und "."fügt ein Finale hinzu ..

Japt, 24 Bytes

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

Online testen!

Wie es funktioniert

;                        // 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 Bytes

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

Retina, 43 Bytes

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

Führender Zeilenumbruch ist von Bedeutung. Probieren Sie es online!

Ich benutze Retina zum ersten Mal, daher sind alle Golftipps willkommen ...

Pyth, 25 Bytes

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

Ein Programm, das das Ergebnis an STDOUT ausgibt.

Probieren Sie es online aus

Wie es funktioniert

+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