Viết chương trình hoặc chức năng đưa ra văn bản chính xác này, không phân biệt chữ hoa chữ thường:

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.

(Dựa trên bài hát bảng chữ cái mà nhiều trẻ em Mỹ học để giúp ghi nhớ bảng chữ cái, mặc dù được chỉnh sửa để dễ nén hơn.)

Đầu ra phải trông giống hệt như ở trên (một lần nữa, không phân biệt chữ hoa chữ thường), nhưng có thể chứa khoảng trắng ở mỗi dòng và / hoặc dòng mới. Thông báo thời gian ở cuối.

Đây là mã golf, vì vậy mã ngắn nhất tính bằng byte sẽ thắng.

Vim, 42 , 40 tổ hợp phím / byte

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

Cảm ơn Lynn và câu trả lời vim tuyệt vời của cô ấy cho mẹo để lấy bảng chữ cái từ trợ giúp.

Cảm ơn RomanGräf vì đã lưu hai byte!

Giải trình:

: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

Sau đó, chúng tôi di chuyển cuối dòng $, thay đổi lại một ký tự chvà chèn một dấu chấm.

05AB1E , 16 byte

Mã

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

Giải trình:

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.

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến!

Tiện ích Bash + GNU, 36

• 5 byte được lưu nhờ Neil.

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

Ideone.

JavaScript (ES6), 66 65 byte

Đánh bại @Neil là không thể ... Đó là lý do tại sao tôi làm điều đó. :-)

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

Chơi gôn 1 byte nhờ một mẹo từ @LevelRiverSt . Sử dụng String.fromCharCodedài hơn 7 byte:

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

Làm thế nào nó hoạt động

Điều này đệ quy tạo từng ký tự của bảng chữ cái từ ađến y, sử dụng .toString(). Dấu phẩy được thêm vào sau mỗi chữ cái, cộng với một dòng mới nếu 9568512>>i-9&1là 1 hoặc dấu cách khác. Khi đệ quy vượt quá 34, tức là z, hàm chỉ đơn giản trả về "z.".

Python 2.7, 67 66 63 byte

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

Dennis đã lưu một byte.

Thạch , 19 18 byte

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

Cảm ơn @Adnan vì đã chơi golf 1 byte!

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

Ø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 byte

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

Có thể rút ngắn điều này với atob / btoa nếu bạn có thể tìm ra cách sử dụng mã hóa ISO-8859-1. Chỉnh sửa: Đã lưu 6 byte nhờ @RickHitchcock.

Pyke, 23 19 17 byte

G\,J\.+2cu  /P

Hãy thử nó ở đây!

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 byte

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

Hãy thử trực tuyến!

Tạo một ma trận gồm 3 hàng (một hàng có các chữ cái, một có dấu phẩy và một hàng khác có dấu cách hoặc dòng mới).

Chỉnh sửa : Cảm ơn Billywob!

CJam, 26 byte

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

Phiên dịch trực tuyến

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

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

Bốn dòng đầu tiên đều có một khoảng trắng ở cuối và chương trình giả định các ô 8 bit. Hãy thử trực tuyến!

^{(Xử lý dòng cuối cùng là khó khăn ...)}

Perl, 37 byte

Tín dụng cho @Dom Hastings cho giải pháp này (ngắn hơn 3 byte so với của tôi, xem dưới đây).

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

Chạy với -E(hoặc -M5.010) cờ:

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

Phiên bản trước của tôi, dài hơn 3 byte (tổng cộng 40 byte):

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

JavaScript (ES6), 66 64 byte

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

Regex khớp với các ký tự nhưng không trả về cỗ xe, vì vậy, bằng cách sử dụng regex thay thế, tôi có thể thêm "," cho mỗi ký tự.

Chỉnh sửa: Đã xóa 2 ký tự nhờ vào ETH Productstions

Cheddar, 70 byte

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

Có vẻ như nó không được ngắn hơn thế này. Tôi đã tạo các phiên bản khác sử dụng các phương pháp khá thú vị nhưng đây là phiên bản ngắn nhất

Hãy thử trực tuyến!

Giải trình

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

Các @"nhà điều hành được sử dụng để tạo ra chuỗi dao động. Nó tạo ra một chuỗi bắt đầu từ mã char bên trái sang mã char bên phải.

Ví dụ, 65là mã char cho Avà 90cho Z. Làm 65 @" 90sẽ tạo ra A đến Z hoặc bảng chữ cái.

C, 112 102 81 byte

Cảm ơn 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 byte

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

Dùng thử trực tuyến

Ruby, 56 54 byte

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

Dòng đầu tiên kết thúc với một dòng mới.

Chỉnh sửa: lưu hai byte bằng cách thay thế 'A'..'Y'bằng ?A..?Y.

Vim, 32 byte

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

Để lại một dòng trống ở cuối, được cho phép, nhưng thật kỳ lạ khi sự vụng về này. Tệ hơn nữa, tôi đang kết thúc ở chế độ chèn. Tôi đã thấy một số người khác làm điều đó ở đây, vì vậy tôi đoán nó được phép? Nó cảm thấy bẩn.

• 26o<C-V><C-V>64,<Esc>: Cái thứ nhất <C-V>làm cái thứ hai chèn theo nghĩa đen. Các <C-V>64lá này trong bộ đệm sẽ được chuyển thành các điểm mã ASCII, sau đó thành các chữ cái. Dấu phẩy đã có trong.
• r.: Không bao giờ đi đến cuối cùng một lần nữa, vì vậy hãy làm .ngay bây giờ.
• V{g<C-A>: Sử dụng gia tăng trực quan để biến tất cả các 64s thành các điểm mã ASCII của chữ in hoa.
• 8Jj9Jj3Jj.j4J: Dòng tùy ý tham gia. Đầu tiên là 8Jthay 7Jvì bởi vì chúng ta đang xử lý dòng trống. Các 3Js lặp lại đủ điều kiện cho một dấu chấm lặp lại.
• cH<C-R>": Mọi người thường nghĩ về i<C-R>việc dán chế độ chèn, nhưng nó giống như một macro chế độ chèn. Những thứ như <C-V>65sẽ chạy như thể được gõ và được hiểu là một điểm mã thập phân. Điều này để lại một dòng bổ sung (được phép) ở cuối và ở trong chế độ chèn.

PowerShell v3 +, 60 78 67 byte

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

ĐỒNG Ý. Tôi thực sự đã đọc, hiểu và theo dõi thông số kỹ thuật lần này. Hứa. :CƯỜI MỞ MIỆNG

Đưa mảng 65..90và vòng lặp qua từng phần tử |%{...}. Mỗi lần lặp, chúng tôi đang xây dựng một chuỗi mới bằng cách sử dụng phép nối, lập chỉ mục và nhân.

Đầu tiên, chúng tôi lấy số hiện tại và charbỏ nó để biến nó thành một chữ cái ASCII. Điều đó được kết hợp với một char khác, dựa trên việc lập chỉ mục vào chuỗi '.,'cho dù chúng ta có ở đó 90hay không (nghĩa là tính đến Z.trong khi tất cả các phần còn lại là dấu phẩy). Chuỗi đó được nối với " "không gian để phân tách các chữ cái và phép nhân chuỗi "`n"dựa trên giá trị Boolean cho dù phần tử hiện tại có phải là -inmảng được chỉ định hay không (nghĩa là chúng ta có cần nối vào một ký tự dòng mới hay không). Chuỗi kết quả được để lại trên đường ống.

Các chuỗi đó được gói gọn trong parens và -joined lại với nhau thành một chuỗi mới, sau đó cũng được để lại trên đường ống và ẩn Write-Outputở cuối in kết quả. Vì chúng tôi có `ntrong chuỗi, nó tự động được chuyển đổi thành dòng mới khi in.

Yêu cầu v3 + cho -intoán tử. Có một khoảng trống trên mỗi dòng, đó là OK theo thông số kỹ thuật thách thức.

Thí dụ

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 byte

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

chỉ để so sánh 87 byte

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

9 byte được lưu nhờ vào @Luis!

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

Hãy thử trực tuyến!

Giải trình

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 byte

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

Giải trình:

LETTERSđược xác định trước cho chữ in hoa.
Các fchức năng là cho concatenating vector x trên ,với thêm y(sử dụng cho dòng mới).
Con mèo được sử dụng khi nó in \nnhư dòng mới. fđược gọi trên các chữ cái để tạo thành các hàng và sau đó trên các hàng một lần nữa để tạo thành toàn bộ đầu ra.

Có thể chơi gôn - Tôi không thích nhiều cuộc gọi của ...

CJam, 31 byte

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

Giải trình:

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

Dùng thử trực tuyến

Julia, 71 byte

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

Yêu cầu 0,5 hoặc tốt hơn để phát sóng .()

Cheddar, 57 byte

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

Hãy thử trực tuyến! Đẹp không Đó là một hình chữ nhật đẹp.

Hai thay thế regex. (65@"90)là bảng chữ cái viết hoa, .sub(/[GPSV]/g,"$0\n")thay thế GPSVbằng chính nó và "\n", .sub(/[^Z\n]/g,"$0, ")thay thế tất cả các dòng mới và Zký tự bằng chính nó ", ", và "."thêm một cuối cùng ..

Japt, 24 byte

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

Kiểm tra nó trực tuyến!

Làm thế nào nó hoạt động

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

Ung dung:

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 byte

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

Võng mạc, 43 byte

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

Hàng đầu mới là đáng kể. Hãy thử trực tuyến!

Đây là lần đầu tiên tôi sử dụng Retina, vì vậy mọi mẹo chơi gôn đều được đánh giá cao ...

Bình thường, 25 byte

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

Một chương trình in kết quả thành STDOUT.

Dùng thử trực tuyến

Làm thế nào nó hoạt động

+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