Terinspirasi oleh George Gibson's Print a Tabula Recta .

Anda harus mencetak / menampilkan teks ini:

ABCDEFGHIJKLMNOPQRSTUVWXYZ
BBCDEFGHIJKLMNOPQRSTUVWXYZ
CCCDEFGHIJKLMNOPQRSTUVWXYZ
DDDDEFGHIJKLMNOPQRSTUVWXYZ
EEEEEFGHIJKLMNOPQRSTUVWXYZ
FFFFFFGHIJKLMNOPQRSTUVWXYZ
GGGGGGGHIJKLMNOPQRSTUVWXYZ
HHHHHHHHIJKLMNOPQRSTUVWXYZ
IIIIIIIIIJKLMNOPQRSTUVWXYZ
JJJJJJJJJJKLMNOPQRSTUVWXYZ
KKKKKKKKKKKLMNOPQRSTUVWXYZ
LLLLLLLLLLLLMNOPQRSTUVWXYZ
MMMMMMMMMMMMMNOPQRSTUVWXYZ
NNNNNNNNNNNNNNOPQRSTUVWXYZ
OOOOOOOOOOOOOOOPQRSTUVWXYZ
PPPPPPPPPPPPPPPPQRSTUVWXYZ
QQQQQQQQQQQQQQQQQRSTUVWXYZ
RRRRRRRRRRRRRRRRRRSTUVWXYZ
SSSSSSSSSSSSSSSSSSSTUVWXYZ
TTTTTTTTTTTTTTTTTTTTUVWXYZ
UUUUUUUUUUUUUUUUUUUUUVWXYZ
VVVVVVVVVVVVVVVVVVVVVVWXYZ
WWWWWWWWWWWWWWWWWWWWWWWXYZ
XXXXXXXXXXXXXXXXXXXXXXXXYZ
YYYYYYYYYYYYYYYYYYYYYYYYYZ
ZZZZZZZZZZZZZZZZZZZZZZZZZZ

(Ya, saya mengetiknya dengan tangan)

Anda diizinkan menggunakan semua huruf kecil dan bukan semua huruf besar.

Namun, pilihan case Anda harus konsisten di seluruh teks.

Aturan / Persyaratan

• Setiap pengajuan harus berupa program atau fungsi lengkap. Jika itu adalah suatu fungsi, itu harus dapat dijalankan dengan hanya perlu menambahkan panggilan fungsi ke bagian bawah program. Hal lain (mis. Tajuk dalam C), harus dimasukkan.
• Jika memungkinkan, berikan tautan ke situs tempat program Anda dapat diuji.
• Program Anda tidak boleh menulis apa pun STDERR.
• Celah Standar dilarang.
• Program Anda dapat menampilkan dalam hal apa pun, tetapi harus dicetak (bukan array atau serupa).

Mencetak gol

Program-program dinilai berdasarkan byte, dalam UTF-8 secara default atau serangkaian karakter pilihan Anda.

Akhirnya, jawaban dengan byte terkecil akan menang.

Pengajuan

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda dapat menyimpan skor lama di headline, dengan mencoretnya. Misalnya:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Jika Anda ingin memasukkan beberapa angka dalam tajuk Anda (mis. Karena skor Anda adalah jumlah dari dua file atau Anda ingin membuat daftar hukuman penterjemah secara terpisah), pastikan bahwa skor sebenarnya adalah angka terakhir di tajuk:

# Perl, 43 + 2 (-p flag) = 45 bytes

Anda juga dapat membuat tautan nama bahasa yang kemudian akan muncul di cuplikan papan peringkat:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

Papan peringkat

Berikut ini adalah Stack Snippet untuk menghasilkan leaderboard biasa dan gambaran umum pemenang berdasarkan bahasa.

/* Configuration */

var QUESTION_ID = 87064; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 48934; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    if (/<a/.test(lang)) lang = jQuery(lang).text();
    
    languages[lang] = languages[lang] || {lang: a.language, user: a.user, size: a.size, link: a.link};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.lang > b.lang) return 1;
    if (a.lang < b.lang) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body { text-align: left !important}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

table td {
  padding: 5px;
}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b">
<div id="answer-list">
  <h2>Leaderboard</h2>
  <table class="answer-list">
    <thead>
      <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr>
    </thead>
    <tbody id="answers">

    </tbody>
  </table>
</div>
<div id="language-list">
  <h2>Winners by Language</h2>
  <table class="language-list">
    <thead>
      <tr><td>Language</td><td>User</td><td>Score</td></tr>
    </thead>
    <tbody id="languages">

    </tbody>
  </table>
</div>
<table style="display: none">
  <tbody id="answer-template">
    <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>

Excel, 19.604 byte

=CHAR(64+MAX(COLUMN(),ROW()))

Rekatkan formula ini A1, lalu seret ke seluruh A1:Z26.

Jumlah byte:

1. Rumusnya adalah 27 byte.
2. Anda harus menyalinnya 26 ^ 2 kali. 27 * 26 * 26 = 19604.
3. Saya dan yang lainnya berpikir skornya harus lebih rendah karena Anda tidak perlu mengetik formula lagi dan lagi. Saya sekarang berpikir itu tidak relevan - kami menghitung ukuran program, bukan pekerjaan yang dihabiskan untuk menulisnya.
4. Sebagai perbandingan - lihat 28.187 karakter ini jawaban JS - jelas, seseorang membuatnya daripada mengetik semua ini, tetapi tidak mengubah ukurannya.

Vim, 43 byte

:h<_↵jjYZZPqqlmaYp`ajyl:norm v0r♥"↵`ajq25@q

Di sini ↵mewakili Return ( 0x0a) dan ♥mewakili Ctrl-R ( 0x12).

Tidak sesingkat jawaban Tabula Recta saya, tapi ...

Jelly, 6 byte

ØA»'j⁷

Coba di sini. Kalau saja saya tidak malas kemarin dan menerapkan alternatif satu byte untuk j⁷(bergabung dengan baris baru) ...

ØA      The uppercase alphabet.
  »'    Table of max(x, y).
    j⁷  Join by newlines.

brainfuck, 103 96 95 91 87 byte

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

Ini menggunakan konstanta brainfuck Esolangs 'untuk 64 . Cobalah online!

/// , 141 94 92 82 byte

/:/\\\\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://:/\/a#
\/a\///A/#

Cobalah online: Demonstrasi

Bahasa yang cukup menyenangkan.

Penjelasan:

Kode singkat untuk hanya mencetak kotak 4x4:

/:/\\\\A//#/:b:c:d://:/\/a#
\/a\///A/#

Penggantian pertama /:/\\\\A/menggantikan :dengan \\A. Ini memberi:

/#/\\Ab\\Ac\\Ad\\A//\\A/\/a#
\/a\///A/#

Kemudian /#/\\Ab\\Ac\\Ad\\A//\\A/ganti #dengan \Ab\Ac\Ad\A:

/\\A/\/a\Ab\Ac\Ad\A
\/a\///A/\Ab\Ac\Ad\A

Sekarang /\\A/\/a\Ab\Ac\Ad\A<newline>\/a\//ganti masing-masing \Adalam kode selanjutnya dengan /aAbAcAdA<newline>/a/, jadi ini menghasilkan:

/A//aAbAcAdA
/a/b/aAbAcAdA
/a/c/aAbAcAdA
/a/d/aAbAcAdA
/a/

Sekarang bagian pertama /A//menghapus semua As.

abcd
/a/b/abcd
/a/c/abcd
/a/d/abcd
/a/

Lima karakter pertama abcd<newline>dicetak. Perintah selanjutnya /a/b/diganti adengan b, menghasilkan:

bbcd
/b/c/bbcd
/b/d/bbcd
/b/

Sekali lagi lima karakter pertama bbcd<newline>dicetak. Perintah selanjutnya /b/c/diganti bdengan c:

cccd
/c/d/cccd
/c/

Sekali lagi lima karakter pertama cccd<newline>dicetak. Perintah selanjutnya /c/d/diganti cdengan d:

dddd
/d/

Lima karakter pertama dddd<newline>dicetak. Dan perintah selanjutnya /d/tidak lengkap dan karena itu tidak melakukan apa pun.

Dyalog APL , 11 byte

⎕A[∘.⌈⍨⍳26]

A[... ]pilih elemen dari alfabet huruf besar sesuai dengan
    ∘.⌈⍨tabel maksimum
    ⍳2626 bilangan bulat pertama

TryAPL online!

Mathematica, 69 65 57 byte

^{Disimpan 8 byte karena @MartinEnder .}

FromCharacterCode[64+Max~Array~{26,26}]~StringRiffle~"
"&

Fungsi anonim. Tidak mengambil input dan mengembalikan string sebagai output. Pada dasarnya hanya char('A' + max(x, y))untuk semua x , y dari 1 hingga 26.

/// , 348 byte

/|/\/\///v/NNN|u/MMM|t/LLL|s/WXYZ|r/OOO|q/KLMa|p/RRRR|o/QQQQ|n/PPPP|m/SSS|l/EFGc|k/RSTb|j/UUUU|i/TTTT|h/WWW|g/VVV|f/XXXX|e/ZZZZZ|d/YYYYY|c/HIJq|b/UVs
|a/NOPQk/ABCDlBBCDlCCCDlDDDDlEEEElFFFFFFGcGGGGGGGcHHHHHHHcIIIIIIIIIJqJJJJJJJJJJqKKKKKKKKKKqttttMauuuuMavvvvNarrrrrPQknnnnQkooooQkppppRkmmmmmmSTbiiiiibjjjjjbgggggggVs
hhhhhhhWs
ffffffYZ
dddddZ
eeeeeZ

Cobalah online!

Saya telah menggunakan teknik yang sama untuk membangun ini sebagai / / / jawaban saya untuk tantangan ini didasarkan pada . Namun, saya harus memperbaiki skrip CJam karena tidak benar menangani substring yang dapat tumpang tindih sendiri.

Retina , 41 byte

Hitungan byte mengasumsikan penyandian ISO 8859-1. Linefeed terkemuka sangat penting.

26$*Z
{`^[^A].+
$&¶$&
}T0-2`L`_L`^(.)\1+

Penjelasan

26$*Z

Setel string menjadi 26 salinan Z. Kemudian {...}instruksikan Retina untuk melakukan dua instruksi yang tersisa dalam satu lingkaran sampai string berhenti berubah.

{`^[^A].+
$&¶$&

Gandakan baris pertama jika tidak dimulai dengan A.

}T0-2`L`_L`^(.)\1+

Ini adalah tahap transliterasi. Ini hanya diterapkan jika string dimulai dengan setidaknya dua salinan dari karakter yang sama. Jika demikian, semua kecuali yang terakhir dari karakter tersebut dikurangi. Penurunan terjadi dengan memetakan L(huruf besar) ke _L(kosong diikuti dengan huruf besar). "Semua kecuali yang terakhir" diindikasikan oleh batas -2yang memberitahu Retina hanya untuk mentransliterasi semua karakter hingga yang kedua hingga terakhir dalam pertandingan.

Cobalah online!

Haskell, 35 byte

a=['A'..'Z']
unlines$(<$>a).max<$>a

Python 2, 59 byte

n=0;exec'print bytearray([n+65]*n+range(n+65,91));n+=1;'*26

Uji di Ideone .

R, 58 byte

l=LETTERS;for(i in 1:26){l[2:i-1]=l[i];cat(l,"\n",sep="")}

Berkat prioritas operator, 2:i-1setara dengan 1:(i-1). Menggunakan konstanta bawaan LETTERSyang berisi alfabet dalam huruf besar. Segala sesuatu yang lain cukup jelas.
Pemakaian:

> l=LETTERS;for(i in 1:26){l[2:i-1]=l[i];cat(l,"\n",sep="")}
ABCDEFGHIJKLMNOPQRSTUVWXYZ
BBCDEFGHIJKLMNOPQRSTUVWXYZ
CCCDEFGHIJKLMNOPQRSTUVWXYZ
DDDDEFGHIJKLMNOPQRSTUVWXYZ
EEEEEFGHIJKLMNOPQRSTUVWXYZ
FFFFFFGHIJKLMNOPQRSTUVWXYZ
GGGGGGGHIJKLMNOPQRSTUVWXYZ
HHHHHHHHIJKLMNOPQRSTUVWXYZ
IIIIIIIIIJKLMNOPQRSTUVWXYZ
JJJJJJJJJJKLMNOPQRSTUVWXYZ
KKKKKKKKKKKLMNOPQRSTUVWXYZ
LLLLLLLLLLLLMNOPQRSTUVWXYZ
MMMMMMMMMMMMMNOPQRSTUVWXYZ
NNNNNNNNNNNNNNOPQRSTUVWXYZ
OOOOOOOOOOOOOOOPQRSTUVWXYZ
PPPPPPPPPPPPPPPPQRSTUVWXYZ
QQQQQQQQQQQQQQQQQRSTUVWXYZ
RRRRRRRRRRRRRRRRRRSTUVWXYZ
SSSSSSSSSSSSSSSSSSSTUVWXYZ
TTTTTTTTTTTTTTTTTTTTUVWXYZ
UUUUUUUUUUUUUUUUUUUUUVWXYZ
VVVVVVVVVVVVVVVVVVVVVVWXYZ
WWWWWWWWWWWWWWWWWWWWWWWXYZ
XXXXXXXXXXXXXXXXXXXXXXXXYZ
YYYYYYYYYYYYYYYYYYYYYYYYYZ
ZZZZZZZZZZZZZZZZZZZZZZZZZZ

Sesos , 25 byte

0000000: 2829c0 756fc6 aecae2 aecd9c 39e09e 099c63 7d8e3d  ().uo.......9....c}.=
0000015: 65a7c0 39                                         e..9

Cobalah online! Periksa Debug untuk melihat kode SBIN yang dihasilkan.

Perakitan Sesos

File biner di atas telah dihasilkan dengan merakit kode SASM berikut.

add 26
jmp
    jmp
        rwd 1, add 1, rwd 1, add 1, fwd 2, sub 1
    jnz
    rwd 2, add 64
    jmp
        fwd 2, add 1, rwd 2, sub 1
    jnz
    fwd 1, sub 1
jnz
fwd 1
jmp
    jmp
        rwd 1, add 1, fwd 1, sub 1
    jnz
    nop
        rwd 1
    jnz
    fwd 1
    jmp
        put, add 1, fwd 1
    jnz
    fwd 1
    jmp
        put, fwd 1
    jnz
    add 10, put, get
    nop
        rwd 1
    jnz
    fwd 1
; jnz (implicit)

Bagaimana itu bekerja

Kami mulai dengan menginisialisasi rekaman ke ABCDEFGHIJKLMNOPQRSTUVWXYZ. Ini sebagai berikut.

Menulis 26 ke sel, meninggalkan kaset dalam keadaan berikut.

                                                       v
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 26 0

Selama sel di bawah kepala data bukan nol, kami melakukan hal berikut.

Salin nomor ke dua sel ke kiri dan tambahkan 64 ke salinan paling kiri.

                                                   v
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 90 26 0 0

Pindahkan salinan paling kiri ke lokasi asli, lalu kurangi 1 dari salinan paling kanan.

                                                     v
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 25 90 0

Proses berhenti setelah 26 iterasi, karena salinan paling kanan adalah 0 saat itu. Kami memindahkan sel ke kanan, sehingga keadaan akhir rekaman setelah inisialisasi adalah sebagai berikut.

     v
0 0 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 0

Sekarang kita siap untuk menghasilkan output, dengan mengulangi proses berikut sampai sel di bawah kepala data nol.

Pertama, kami memindahkan konten sel di bawah kepala data satu unit ke kiri, lalu pindah ke kiri hingga sel terakhir dengan konten yang tidak nol.

   v
0 65 0 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 0

Sekarang, kita mencetak semua sel, mulai dengan yang di bawah kepala data dan bergerak ke kanan hingga kita menemukan 0 sel, menambah setiap sel yang dicetak setelah mencetaknya. Setelah mencetak A, rekaman itu terlihat sebagai berikut.

     v
0 66 0 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 0

Sekarang kita bergerak ke kanan, kembali mencetak semua sel sampai 0 sel di temui. Setelah mencetak BCDEFGHIJKLMNOPQRSTUVWXYZ, rekaman itu terlihat sebagai berikut.

                                                                                  v
0 66 0 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 0

Sekarang, kita menulis 10 ke sel saat ini, mencetak karakter yang sesuai (linefeed) dan nol sel dengan panggilan masuk getpada input kosong, meninggalkan rekaman tidak berubah.

Akhirnya, kami pindah ke yang bukan nol terakhir ke kiri, menyiapkan rekaman untuk iterasi berikutnya.

        v
0 66 0 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 0

Iterasi berikutnya serupa. Kami pertama-tama memindahkan 66 satu sel ke kiri, mencetak 66 sel ( BB) dan menambahnya menjadi 67 , lalu mencetak sel-sel yang tidak nol yang tersisa ke kanan ( CDEFGHIJKLMNOPQRSTUVWXYZ), dan akhirnya menempatkan kepala data di 67 , meninggalkan rekaman sebagai berikut .

           v
0 66 66 0 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 0

Setelah 24 iterasi lagi dan setelah pencetakan ZZZZZZZZZZZZZZZZZZZZZZZZZZdan pemberian baris, kaset dibiarkan dalam kondisi berikut.

                                                                                  v
0 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 0 0

Memindahkan kepala data ke kiri ke sel non-nol berikutnya akan membiarkannya pada posisi saat ini, sehingga sel di bawahnya adalah 0 dan loop berakhir.

J, 13 byte

u:65+>./~i.26

Penerjemah online .

Penjelasan

u:65+>./~i.26
         i.26  generate [0 1 ... 25]
       /~      build a table...
     >.        ...of maximum
  65+          add 65 to each element
u:             convert to unicode

Matlab / Oktaf, 43 39 byte

1 byte dihapus berkat gagasan @ beeker tentang penggunaan [...,'']untuk mengonversi ke char.

@()[91-rot90(gallery('minij',26),2),'']

Ini adalah fungsi anonim yang mengembalikan array char 2D.

Cobalah di Ideone .

Penjelasan

gallery('minij',...) memberikan matriks di mana setiap entri sama dengan minimum indeks baris dan kolomnya:

 1     1     1     1  ...
 1     2     2     2
 1     2     3     3
 1     2     3     4
 ...

Ini diputar 180 derajat dengan rot90(...,2):

26    25    24    23  ...
25    25    24    23
24    24    24    23
23    23    23    23
...  

The 91-...operasi memberikan kode ASCII dari huruf besar:

65    66    67    68
66    66    67    68
67    67    67    68
68    68    69    68 ...
...

Akhirnya [...,'']digabungkan secara horizontal dengan string kosong. Ini memiliki efek konversi ke char.

PowerShell v2 +, 76 52 40 byte

65..90|%{-join[char[]](,$_*$i+++$_..90)}

Loop dari 65ke 89. Setiap iterasi, kami membangun sebuah array menggunakan koma-operator yang terdiri dari angka saat ini $_dikalikan dengan variabel pembantu pasca kenaikan $i++, disatukan dengan array nomor saat ini $_ke 90. Itu dienkapsulasi dalam sebuah array char-array, dan -joined bersama menjadi sebuah string. Misalnya, untuk iterasi pertama, array ini akan setara dengan 65..90, atau seluruh alfabet. Iterasi kedua adalah 66+66..90, atau seluruh alfabet dengan Bdiulang dan tidak A.

Itu semua ditinggalkan di pipeline di akhir program (sebagai array), dan pencetakan ke konsol adalah implisit (default .ToString()untuk array dipisahkan melalui baris baru, jadi kami mendapatkannya secara gratis).

PS C:\Tools\Scripts\golfing> .\print-the-l-phabet.ps1
ABCDEFGHIJKLMNOPQRSTUVWXYZ
BBCDEFGHIJKLMNOPQRSTUVWXYZ
CCCDEFGHIJKLMNOPQRSTUVWXYZ
DDDDEFGHIJKLMNOPQRSTUVWXYZ
EEEEEFGHIJKLMNOPQRSTUVWXYZ
FFFFFFGHIJKLMNOPQRSTUVWXYZ
GGGGGGGHIJKLMNOPQRSTUVWXYZ
HHHHHHHHIJKLMNOPQRSTUVWXYZ
IIIIIIIIIJKLMNOPQRSTUVWXYZ
JJJJJJJJJJKLMNOPQRSTUVWXYZ
KKKKKKKKKKKLMNOPQRSTUVWXYZ
LLLLLLLLLLLLMNOPQRSTUVWXYZ
MMMMMMMMMMMMMNOPQRSTUVWXYZ
NNNNNNNNNNNNNNOPQRSTUVWXYZ
OOOOOOOOOOOOOOOPQRSTUVWXYZ
PPPPPPPPPPPPPPPPQRSTUVWXYZ
QQQQQQQQQQQQQQQQQRSTUVWXYZ
RRRRRRRRRRRRRRRRRRSTUVWXYZ
SSSSSSSSSSSSSSSSSSSTUVWXYZ
TTTTTTTTTTTTTTTTTTTTUVWXYZ
UUUUUUUUUUUUUUUUUUUUUVWXYZ
VVVVVVVVVVVVVVVVVVVVVVWXYZ
WWWWWWWWWWWWWWWWWWWWWWWXYZ
XXXXXXXXXXXXXXXXXXXXXXXXYZ
YYYYYYYYYYYYYYYYYYYYYYYYYZ
ZZZZZZZZZZZZZZZZZZZZZZZZZZ

C #, 147 byte

void e(){for(int i=0,j=97;i<26;i++,j++)Console.WriteLine(new string((char)j,i)+new string(Enumerable.Range(j,26-i).Select(n=>(char)n).ToArray()));}

terkadang saya bertanya-tanya mengapa saya bahkan mencoba

sunting: perbaiki

Cobalah online

MATL, 10 byte

lY2t!2$X>c

Demo online (Jika Anda memiliki masalah dengan penerjemah ini, ping saya di obrolan MATL . Juga, di sini adalah tautan TIO jika Anda memiliki masalah)

Penjelasan

lY2     % Push an array of characters to the stack: 'AB...Z'
t!      % Duplicate and transpose
2$X>    % Take the element-wise maximum between these two (with expansion)
c       % Explicitly convert back to characters
        % Implicitly display the result.

Python 2, 76 70 68 byte

a=range(65,91)
i=0
for c in a:a[:i]=[c]*i;i+=1;print'%c'*26%tuple(a)

Sangat mirip dengan jawaban saya untuk pertanyaan terkait .

Disimpan 2 byte berkat @xnor (lagi)!

Oktaf, 26 byte

disp([max(L=65:90,L'),''])

Sampel dijalankan pada ideone .

05AB1E , 9 byte

Kode:

AAv¬N×?=¦

Penjelasan:

AA         # Push the alphabet twice.
  v        # For each in the alphabet.
   ¬       # Get the first character and
    N×     # multiply by the iteration variable.
      ?    # Pop and print.
       =   # Print the initial alphabet without popping.
        ¦  # Remove the first character of the initial alphabet and repeat.

Menggunakan pengkodean CP-1252 . Cobalah online! .

Javascript ES6, 81 byte

x=>[...a='ABCDEFGHIJKLMNOPQRSTUVWXYZ'].map((x,y)=>x.repeat(y)+a.slice(y)).join`
`

Cukup jelas.

R, 56 byte

Tidak memiliki perwakilan untuk berkomentar, tetapi jawaban @plannapus dapat di- drop sedikit ke:

for(i in 1:26)cat({L=LETTERS;L[1:i]=L[i];L},"\n",sep="")

menghasilkan output yang sama:

ABCDEFGHIJKLMNOPQRSTUVWXYZ
BBCDEFGHIJKLMNOPQRSTUVWXYZ
CCCDEFGHIJKLMNOPQRSTUVWXYZ
DDDDEFGHIJKLMNOPQRSTUVWXYZ
EEEEEFGHIJKLMNOPQRSTUVWXYZ
FFFFFFGHIJKLMNOPQRSTUVWXYZ
GGGGGGGHIJKLMNOPQRSTUVWXYZ
HHHHHHHHIJKLMNOPQRSTUVWXYZ
IIIIIIIIIJKLMNOPQRSTUVWXYZ
JJJJJJJJJJKLMNOPQRSTUVWXYZ
KKKKKKKKKKKLMNOPQRSTUVWXYZ
LLLLLLLLLLLLMNOPQRSTUVWXYZ
MMMMMMMMMMMMMNOPQRSTUVWXYZ
NNNNNNNNNNNNNNOPQRSTUVWXYZ
OOOOOOOOOOOOOOOPQRSTUVWXYZ
PPPPPPPPPPPPPPPPQRSTUVWXYZ
QQQQQQQQQQQQQQQQQRSTUVWXYZ
RRRRRRRRRRRRRRRRRRSTUVWXYZ
SSSSSSSSSSSSSSSSSSSTUVWXYZ
TTTTTTTTTTTTTTTTTTTTUVWXYZ
UUUUUUUUUUUUUUUUUUUUUVWXYZ
VVVVVVVVVVVVVVVVVVVVVVWXYZ
WWWWWWWWWWWWWWWWWWWWWWWXYZ
XXXXXXXXXXXXXXXXXXXXXXXXYZ
YYYYYYYYYYYYYYYYYYYYYYYYYZ
ZZZZZZZZZZZZZZZZZZZZZZZZZZ

Padahal, jika jawaban sebagai matriks diperbolehkan ( yaitu seperti di sini ), kita bisa melakukan 49 byte:

sapply(1:26,function(l){L=LETTERS;L[1:l]=L[l];L})

R , 42 41 byte

write(outer(L<-LETTERS,L,pmax),'',26,,'')

Cobalah online!

The jawaban R terpendek berikutnya masih agak terlalu lama karena mencetak baris demi baris. Saya sedang memikirkan pertanyaan lain sebelumnya hari ini dan menyadari bahwa pendekatan yang jauh lebih pendek mungkin untuk yang ini: Saya membuat matriks sekaligus menggunakan outerdan pmax(maksimum paralel) dan kemudian mencetaknya (*) dalam satu langkah dengan write.

(*) secara teknis, transposnya, tapi untungnya simetris melintasi diagonal.

Haskell, 53 46 byte

unlines[(i<$['B'..i])++[i..'Z']|i<-['A'..'Z']]

Mengembalikan string tunggal dengan L-phabet.

pergi melalui karakter idari Ake Zdan membuat daftar (length ['B'..i])salinan idiikuti oleh [i..'Z']. Gabung elemen dengan baris baru di antaranya.

Python 3, 71 65 byte

Terima kasih kepada @LeakyNun untuk -6 byte

r=range(26)
for i in r:print(''.join(chr(max(i,x)+65)for x in r))

Program lengkap yang mencetak ke STDOUT.

Bagaimana itu bekerja

Kami menetapkan kode karakter untuk huruf-huruf alfabet, dari 0untuk Ake 25untuk Z. Program ini mengulangi interval [0, 25]dengan penghitung garis i, yang menentukan karakter saat ini untuk diulang dan panjang bagian yang diulang, dan indeks karakter x. Dengan memanggil max(i,x), semua karakter di bawah karakter yang diulang dijepit ke kode karakter yang sama. Menambah 65dan memanggil chrmengkonversi kode karakter yang dihasilkan ke ASCII setara mereka; ''.joinmenyatukan karakter, dan setiap baris dicetak ke STDOUT.

Cobalah di Ideone

𝔼𝕊𝕄𝕚𝕟, 12 karakter / 15 byte

ᶐⓢ⒨Ċ_+ᶐč_)ü⬬

Try it here (Chrome Canary only).

Pada dasarnya port jawaban ES6 saya.

R, 54 byte

v=L=LETTERS;for(i in 2:26){L[1:i]=L[i];v=cbind(v,L)};v

Solusi ini menggunakan konstanta bawaan RLETTERS , yang ... yah ... mencantumkan huruf besar. Ada juga konstanta lettersuntuk huruf kecil.

C, 78 70 67 byte

f(i,j){for(;++i<27;puts(""))for(j=0;++j<27;putchar((i>j?i:j)+64));}

Kode memanfaatkan teknik golf berikut untuk C:

• menghilangkan dasar termasuk (seperti stdio.h)
• menghilangkan (mengembalikan) jenis fungsi dan variabel, menjadikannya default untuk int
• gunakan operator ternary alih-alih blok if-else
• gunakan kode ASCII dari surat alih-alih representasi karakternya (yaitu 65alih-alih 'A')
• gunakan putcharuntuk menampilkan satu karakter
• daftar argumen penyalahgunaan utama
• gunakan puts("")untuk menampilkan baris baru

Juga, aturannya If it is a function, it must be runnable by only needing to add the function call to the bottom of the program.tidak melarang fungsi dipanggil dengan parameter (terima kasih kepada ABcDexter!).

Cobalah di Ideone

Versi ungolfed (tanpa peringatan dengan gcc) akan terlihat seperti ini:

#include <stdio.h>

#define MAX(x, y) (x>y ? x : y)

int main()
{
    for(int i=0; i<26; i++)
    {
        for(int j=0; j<26; j++)
            printf("%c", MAX(i, j) + 'A');
        printf("\n");
    }
    return 0;
}

Cheddar, 90 byte

(|>26).map(i->String.letters.chars.map((j,k,l)->k<i?l[i]:j).fuse).vfuse.slice(1)

Itu String.lettersterlalu lama: /

Harus menambahkan .slice(1)karena baris baru terkemuka tidak diizinkan

Penjelasan

(|>26)       // Range from [0, 26)
.map(i->     // Loop through that range
 String.letters.chars // Alphabet array
  .map(               // Loop through alphabet
  (j,k,l) ->          // j = letter, j = index, l = alphabet
    k<i?l[i]:j        // Basically `l[max(k,i)]` 
  ).fuse     // Collapse the array
).vfuse      // Join on newlines

Cheddar, 65 byte (tidak bersaing)

(|>26).map(i->String.letters.map((j,k,l)->k<i?l[i]:j).fuse).vfuse

Bekerja dengan cabang malam . Tidak bersaing ... bagian yang menyedihkan adalah saya sudah melakukan perubahan ... tidak pernah berkomitmen; _;