George Gibson'dan esinlenildi Bir Tabula Recta yazdırın .

Bu tam metni basacak / çıkacaksınız:

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

(Evet, elle yazdım)

Büyük harf yerine tüm küçük harfleri kullanmanıza izin verilir.

Ancak, dava seçiminiz tüm metin boyunca tutarlı olmalıdır.

Kurallar / Gereksinimler

• Her gönderim tam bir program veya işlev olmalıdır. Eğer bu bir fonksiyon ise, fonksiyon çağrısını sadece programın altına eklemek zorunda kalarak çalıştırılabilir olmalıdır. Başka herhangi bir şey (örn. C'deki başlıklar) dahil edilmelidir.
• Mümkünse, programınızın test edilebileceği bir siteye bağlantı sağlayın.
• Programınız hiçbir şey yazmamalı STDERR.
• Standart Loopholes yasaktır.
• Programınız her durumda çıktı verebilir, ancak yazdırılması gerekir (bir dizi veya benzeri değil).

puanlama

Programlar baytlara göre, UTF-8'de varsayılan olarak veya seçtiğiniz farklı bir karakter kümesinde puanlanır.

Sonunda en az bayt olan cevap kazanacaktır.

gönderimler

Cevabınızın göründüğünden emin olmak için, lütfen aşağıdaki Markdown şablonunu kullanarak cevabınızı bir başlık ile başlatın:

# Language Name, N bytes

Gönderinizin Nbüyüklüğü nerede ? Puanınızı artırmak varsa, olabilir onları içinden vurarak, başlığa eski hesapları tutmak. Örneğin:

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

Başlığınıza birden fazla sayı eklemek istiyorsanız (örneğin, puanınız iki dosyanın toplamı olduğundan veya tercüman bayrağı cezalarını ayrı ayrı listelemek istediğiniz için), gerçek puanın başlıktaki son sayı olduğundan emin olun :

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

Dil adını, daha sonra büyük afiş snippet'inde görünecek bir bağlantı da yapabilirsiniz:

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

Liderler Sıralaması

Burada hem düzenli bir lider tablosu hem de kazananların dile göre bir genel bakışını oluşturmak için bir Stack Snippet'i var.

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

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

Bu formülü yapıştırın A1, ardından her yere sürükleyin A1:Z26.

Bayt sayısı:

1. Formül 27 bayttır.
2. 26 ^ 2 kez kopyalamanız gerekir. 27 * 26 * 26 = 19604.
3. Ben ve diğerleri puanın düşük olması gerektiğini düşündüm çünkü formülü tekrar tekrar yazmanıza gerek yok. Şimdi bunun alakasız olduğunu düşünüyorum - programın boyutunu sayıyoruz, onu yazmak için harcanan işi değil.
4. Karşılaştırma için - bkz. 28,187 karakter JS cevabı - açıkçası, birileri tüm bunları yazmak yerine onu oluşturdu, ancak boyutunu değiştirmedi.

Vim, 43 bayt

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

Burada ↵Return ( 0x0a) ve ♥Ctrl-R ( 0x12) temsil edilir .

Tabula Recta'mın yanıtı kadar kısa değil, ama…

Jöle, 6 bayt

ØA»'j⁷

Burada dene. Keşke dün tembel olmasaydım ve şu bir baytlık alternatifi j⁷uygulasaydım (newlines'a katıl)…

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

brainfuck, 103 96 95 91 87 bayt

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

Bu, 64 için Esolangs'ın brainfuck sabitini kullanır . Çevrimiçi deneyin!

/// , 141 94 92 82 bayt

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

Çevrimiçi deneyin: Gösteri

Oldukça eğlenceli bir dil.

Açıklama:

Yalnızca 4 x 4 kare yazdırmak için kısa kod:

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

İlk yedek /:/\\\\A/değiştirir :ile \\A. Bu verir:

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

Sonra /#/\\Ab\\Ac\\Ad\\A//\\A/yerini #ile \Ab\Ac\Ad\A:

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

Şimdi sonraki koddaki /\\A/\/a\Ab\Ac\Ad\A<newline>\/a\//her birini değiştirir , bu nedenle şöyle sonuçlanır:\A/aAbAcAdA<newline>/a/

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

Şimdi ilk kısım /A//hepsini As.

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

İlk beş karakter abcd<newline>basılıyor. Bir sonraki komut /a/b/yerine agöre bsonuçlanan:

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

Yine ilk beş karakter bbcd<newline>basılıyor. Bir sonraki komutu /b/c/yerine geçer bgöre c:

cccd
/c/d/cccd
/c/

Yine ilk beş karakter cccd<newline>basılıyor. Bir sonraki komutu /c/d/yerine geçer cgöre d:

dddd
/d/

İlk beş karakter dddd<newline>basılıyor. Ve bir sonraki komut /d/eksik ve bu nedenle hiçbir şey yapmıyor.

Dyalog APL , 11 bayt

⎕A[∘.⌈⍨⍳26]

A[... ilk 26 tamsayının maksimum tablosuna ]göre büyük harflerden elemanları seç
    ∘.⌈⍨
    ⍳26

TryAPL çevrimiçi!

Mathematica, 69 65 57 bayt

^{@MartinEnder nedeniyle 8 bayt kaydedildi .}

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

Anonim işlev Giriş yapmaz ve bir dize çıktı olarak döndürür. Temel olarak char('A' + max(x, y)), tüm x , y'yi 1'den 26'ya kadar alır.

/// , 348 bayt

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

Çevrimiçi deneyin!

Bunu oluşturmak için aynı tekniği kullandım, bunun dayandığı zorluğa /// cevabım . Ancak, CJam komut dosyasını düzeltmem gerekiyordu çünkü üst üste gelebilecek alt dizeleri doğru işlemiyordu .

Retina , 41 bayt

Bayt sayısı, ISO 8859-1 kodlamasını varsayar. Lider hat beslemesi önemlidir.

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

açıklama

26$*Z

Dizeyi 26 kopyaya ayarlayın Z. Ardından, {...}Retina'ya, dize değişmeyi bırakana kadar kalan iki talimatı bir döngüde gerçekleştirmesini isteyin.

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

Bir ile başlamazsa ilk satırı çoğaltın A.

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

Bu bir harf çevirisi aşamasıdır. Yalnızca dize aynı karakterden en az iki kopyayla başlarsa uygulanır. Eğer öyleyse, bu karakterlerin sonuncusu hariç tümü azalır. Azalma, L(büyük harf alfabe) ile _L(boş sonra büyük harf alfabe) eşleştirilerek gerçekleşir . "Hepsi hariç, sonuncusu", -2Retina'ya maçtaki tüm karakterleri yalnızca ikinci karaktere kadar harmanlamasını söyleyen sınır ile belirtilir .

Çevrimiçi deneyin!

Haskell, 35 bayt

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

Python 2, 59 bayt

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

İdeone üzerinde test et .

R, 58 bayt

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

Operatör önceliği sayesinde 2:i-1eşittir 1:(i-1). LETTERSBüyük harfle alfabeyi içeren yerleşik sabiti kullanır . Geriye kalan her şey kendi kendini açıklayıcı nitelikte.
Kullanımı:

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

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

Çevrimiçi deneyin! Kontrol Debug oluşturulan SBIN kodunu görmek için.

Sesos derleme

Yukarıdaki ikili dosya aşağıdaki SASM kodunu birleştirerek oluşturulmuştur.

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)

Nasıl çalışır

Kaseti başlatarak başlıyoruz ABCDEFGHIJKLMNOPQRSTUVWXYZ. Bu aşağıdaki gibidir.

Kaseti aşağıdaki durumda bırakarak bir hücreye 26 yazın .

                                                       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

Veri başlığının altındaki hücre sıfır olmadıkça, aşağıdakileri yaparız.

Sayıyı iki hücreye sola kopyalayın ve 64'ü en soldaki kopyaya ekleyin .

                                                   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

En soldaki kopyayı orijinal konumuna taşıyın, sonra en sağdaki kopyadan 1'i çıkarın.

                                                     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

İşlem 26 yinelemeden sonra durur , çünkü en sağdaki kopya 0'a göredir . Bir hücreyi sağa doğru hareket ettiririz; bu nedenle, başlatmanın ardından bandın son hali aşağıdaki gibidir.

     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

Şimdi veri başlığının altındaki hücre sıfır olana kadar aşağıdaki işlemi tekrarlayarak çıktıyı üretmeye hazırız.

İlk önce, veri başlığının altındaki hücrenin içeriğini bir birim sola, ardından sıfır olmayan bir içeriğe sahip son hücreye kadar sola hareket ettiririz.

   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

Şimdi, veri kafasının altındaki ile başlayan ve 0 hücreyi bulana kadar hareket eden ve yazdırdıktan sonra her yazdırılan hücreyi artıran tüm hücreleri yazdırıyoruz. Yazdırdıktan sonra A, bant aşağıdaki gibi görünür.

     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

Şimdi sağa hareket ediyoruz, tekrar bir 0 hücre karşılaşıncaya kadar tüm hücreleri yazdırıyoruz . Yazdırdıktan sonra BCDEFGHIJKLMNOPQRSTUVWXYZ, bant aşağıdaki gibi görünür.

                                                                                  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

Şimdi, geçerli hücreye 10 yazıyoruz , karşılık gelen karakteri yazdırıyoruz (satır getbeslemesi ) ve boş girişe bir çağrı yaparak hücreyi sıfırlayarak bandı değiştirmeden bırakıyoruz.

Son olarak, bir sonraki yineleme için bandı hazırlayarak en sola sıfır olmayana doğru hareket ediyoruz.

        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

Bir sonraki yineleme benzer. Önce 66 bir hücreyi sola taşırız, her iki 66 hücreyi ( BB) basarız ve onları 67'ye yükseltiriz , sonra kalan sıfır olmayan hücreleri sağa basarız ( CDEFGHIJKLMNOPQRSTUVWXYZ) ve son olarak veri kafasını 67'ye yerleştiririz , bandı şu şekilde bırakırız .

           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

Sonra 24 daha tekrarlamalar ve baskı sonrası ZZZZZZZZZZZZZZZZZZZZZZZZZZve bir satır besleme, bantlar aşağıdaki durumda bırakılır.

                                                                                  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

Veri kafasını sola, bir sonraki sıfır olmayan hücreye taşımak, geçerli konumunda bırakacaktır, böylece altındaki hücre 0 olur ve döngü sonlanır.

J, 13 bayt

u:65+>./~i.26

Çevrimiçi tercüman .

açıklama

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 / Octave, 43 39 bayt

@ Baykan'ın char'a[...,''] dönüştürmek için kullanma fikri sayesinde 1 bayt kaldırıldı .

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

Bu, 2B karakter dizisini döndüren adsız bir işlevdir.

Ideone'da dene .

açıklama

gallery('minij',...) her girişin satır ve sütun indekslerinin minimumuna eşit olduğu bir matris verir:

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

Bu, şu şekilde 180 derece döndürülür rot90(...,2):

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

Bu 91-...işlem ASCII'ye büyük harf kodlarını verir:

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

Sonunda [...,'']boş bir dize ile yatay olarak birleştirir. Bu char'a dönüştürme etkisine sahiptir.

PowerShell v2 +, 76 52 40 bayt

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

Döngüler 65için 89. Her yineleme, mevcut sayıdan oluşur virgülle operatörünü kullanarak bir dizi inşa ediyoruz $_sonrası artırılır yardımcı değişkeni ile çarpılır $i++akım sayı dizisi ile birleştirilmiş, $_için 90. Bu bir karakter dizisi dökümünde kapsüllenir ve -joinbir dizgede birleştirilir. Örneğin, ilk yineleme için bu dizi 65..90alfabenin tümüne veya tüm alfabeye eşdeğer olacaktır . İkinci yineleme 66+66..90veya Btekrarlanan ve hayır ile tüm alfabe olur A.

Bunların tümü, program sonunda (bir dizi olarak) boru hattında bırakılır ve konsola yazdırmak, örtüktür ( .ToString()bir dizinin varsayılanı newline ile ayrılır, bu yüzden onu bedavaya alırız).

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 bayt

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

bazen neden denediğimi bile merak ediyorum

düzenleme: düzeltildi

Çevrimiçi deneyin

MATL, 10 bayt

lY2t!2$X>c

Çevrimiçi demo (Bu tercümanla ilgili sorunlarınız varsa, beni MATL sohbetine pingleyin . Ayrıca,sorunlarınız olması durumunda TIO bağlantısı da burada )

açıklama

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 bayt

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

Bağlantılı soruya verdiğim cevaba çok benzer .

@Xnor sayesinde 2 byte kaydedildi (tekrar)!

Octave, 26 bayt

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

İdeone üzerinde örnek çalışması .

05AB1E , 9 bayt

Kod:

AAv¬N×?=¦

Açıklama:

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.

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

Javascript ES6, 81 bayt

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

Kendinden açıklayıcı.

R, 56 bayt

Yorum yapacak bir temsilciniz yok, ancak @plannapus cevabı biraz aşağıya düşürülebilir:

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

aynı çıktıyla sonuçlanır:

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

Bir matris olarak cevaba izin verilirse de ( yani burada olduğu gibi ), 49 byte yapabiliriz:

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

R , 42 41 bayt

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

Çevrimiçi deneyin!

Bir sonraki en kısa R cevabı , satır satır basıldığından beri hala çok uzun. Bugün daha önce başka bir soru hakkında düşünüyordum ve bunun için çok daha kısa bir yaklaşımın mümkün olduğunu anladım: Matrisi hepsini bir kerede outerve pmax(en fazla paralel) kullanarak oluşturdum ve sonra bir adımda yazdırdım (*) write.

(*) teknik olarak, devrik, ama neyse ki köşegen boyunca simetrik.

Haskell, 53 46 bayt

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

L-phabet ile tek bir dize döndürür.

karakter geçmesi igelen Aetmek Zve bir listesini yapmak (length ['B'..i])kopyaları iizledi [i..'Z']. Aralarında yeni satır bulunan öğelere katılın.

Python 3, 71 65 bayt

-6 baytlık @LeakyNun'a teşekkürler

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

STDOUT'a yazdıran tam bir program.

Nasıl çalışır

Biz gelen, alfabenin harflerine karakter kodlarını atamak 0için Aiçin 25için Z. Program , tekrarlanacak mevcut karakteri ve tekrarlanan bölümün uzunluğunu ve bir karakter endeksini belirleyen [0, 25]bir satır sayacı ile aralıkta idolaşır x. Çağırarak max(i,x), tekrarlanan karakterin altındaki tüm karakterler aynı karakter koduna sabitlenir. Ekleme 65ve arama chr, sonuç karakter kodlarını ASCII eşdeğerlerine dönüştürür; ''.joinkarakterleri birleştirir ve her satır STDOUT'a yazdırılır.

Ideone'da dene

12, 12 karakter / 15 bayt

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

Try it here (Chrome Canary only).

Temelde ES6 cevabımın bir portu.

R, 54 bayt

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

Bu çözüm R sabitini kullanır LETTERS, ki ... peki ... büyük harfleri listeler. lettersKüçük harfler için sabit de vardır .

C, 78 70 67 bayt

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

Kod, C için aşağıdaki golf tekniklerini kullanır:

• ihmal bazik (benzerlerini içerir stdio.h)
• ihmal (return) işlev ve değişken türlerini belirleyerek bunları varsayılan değere getirir. int
• if-else blokları yerine ternary operatörünü kullanın
• karakterin yerine bir harfin ASCII kodunu kullanın (yani 65yerine 'A')
• putchartek bir karakter elde etmek için kullanın
• kötüye kullanma ana argüman listesi
• puts("")yeni bir satır çıktı almak için kullanın

Ayrıca kural If it is a function, it must be runnable by only needing to add the function call to the bottom of the program., fonksiyonun parametrelerle çağrılmasını yasaklamaz (ABcDexter! Sayesinde).

Ideone'da dene

Ungolfed versiyonu (gcc ile herhangi bir uyarı olmadan) şöyle görünür:

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

Çedar, 90 bayt

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

Bu String.lettersçok uzun: /

Bir .slice(1)lider eklemek zorunda kaldım çünkü yeni satırın kullanımına izin verilmedi

açıklama

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

Çedar, 65 bayt (yarışmaz)

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

İle çalışır gece dalı . Rekabet etmeyen ... üzücü kısım, değişiklikler zaten oldu ... hiç bir zaman taahhüt etmedim; _;