Bir dizi satır verilen bir fonksiyon oluşturun n, a bigA.

• Yatay çubuğu bigAorta sırada olmalı n, hatta ikisinin altında olmalıdır
• Çıktı için tek aralıklı yazı tipi olduğunu varsayın

Çıktı, satırları ayırmak için net satır satırlarına ve sol dolgu için doğru boşluklara sahip bir dize (veya benzeri, örneğin karakter dizisi) olmalıdır (4 boşluk olduğu varsayılır). Sağda herhangi bir boşluk olabilir.

Örnekler

n = 1

A

n = 2

 A
AAA

n = 3

  A
 AAA
A   A

n = 4

   A
  A A
 AAAAA
A     A

n = 5

    A
   A A
  AAAAA
 A     A
A       A

Bu ilham daha küçük "H" s bir "H" oluşturma

05AB1E , 13 bayt

Kod:

Ð;î¹)'A1376SΛ

05AB1E kodlamasını kullanır . Çevrimiçi deneyin!

Açıklama:

Ð                  # Triplicate the input.
 ;î                # Compute ceiling(n / 2).
   ¹               # Push the first input again.
    )              # Wrap into an array. For input 7, this would result in:
                     [7, 7, 4, 7].
     'A            # Push the character 'A'
       1376S       # Push the array [1, 3, 7, 6]. These are the directions of the canvas.
                     This essentially translates to [↗, ↘, ↖, ←].
            Λ      # Write to canvas using the previous three parameters.

Tuval

Muhtemelen tuvali biraz daha (ve diğer birçok işlevi) belgelemeliyim, ancak bu temel olarak özetliyor. Kanvas, verilen parametre türlerine göre farklı 'modlara' sahiptir. Canvas komutunun üç parametresi vardır: <length> <string> <direction> .

Uzunluk ve yön parametreleri listeler olduğundan, yürütülecek bir dizi talimat oluşturmak için bu listeleri 'fermuarlar'. String parametresi sadece A harfidir , bu nedenle tüm talimatlar tarafından kullanılan dolgu karakteri budur. Kanvas bunu aşağıdaki talimatlar grubu olarak yorumlar (giriş 7 için):

• Uzunluğunda bir çizgi çizin 7 dize sahip A yönünde ↗
• Uzunluğunda bir çizgi çizin 7 dize sahip A yönünde ↘
• Uzunluğunda bir çizgi çizin 4 dize sahip A yönünde ↖
• A ipi yönünde 7 uzunluğunda bir çizgi çizin ←

Talimatlar aşağıdaki şekilde tercüme edilir:

7   0   1
  ↖ ↑ ↗
6 ← X → 2
  ↙ ↓ ↘
5   4   3

Hiçbir çıktı alınmazsa, 05AB1E tuval sonucunu otomatik olarak verir.

Kömür , 17 15 bayt

ＮθＰ×θAＭ⊘θ↗Ｐ^×θA

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

Ｎθ

Giriş n.

Ｐ×θA

Büyük yatay çubuğu yazdırın A. (Çift sayılar için, n+1th yine de sağ tarafla örtüşüyor.)

Ｍ⊘θ↗

Büyüklerin üstüne git A.

Ｐ^×θA

Büyüklerin iki yüzüne de yazdırın A.

Python 2 , 80 bayt

lambda n:'\n'.join(' '*(n+~i)+('A'+' A'[i==n/2]*n*2)[:i*2]+'A'for i in range(n))

Çevrimiçi deneyin!

İstenen çıktıyı sol boşluk, sol Aartı orta boşluk veya As ve sağa bölün A. Sabit bir dize dilimleme kullanarak orta kısmı hesaplayın. Bu, ilk satırı oluşturmak için aynı şekilde kullanılmasına izin verir.

Stax , 15 bayt

┴3╬*ôP^x'┌_╓J²♫

Çalıştır ve hata ayıkla

Paketten çıkarılmış, çözülmemiş ve yorum yapılmış, program böyle görünüyor.

m       map over [1 .. input] using rest of the program, output each result
'A      "A" literal
xhi=    is the iteration index equal to (integer) half the input?
65*     multiply by 65 (character code of "A")
]i*     repeat that character (" " or  "A") i times
+       concat to initial "A"
x)      left pad to the original input
|p      palindromize (concatenate the reverse minus the last character)

Bunu çalıştır

JavaScript (ES6), 77 bayt

Bu kaynak kodun dikdörtgen şekli var ! Oh bekle ... yanlış meydan okuma: - /

f=(n,k=n>>1,p='A')=>--n?f(n,k,' '+p)+`
${p}${(k-n?' ':'A').repeat(n*2-1)}A`:p

Çevrimiçi deneyin!

Python 3.6 , 79 bayt veya 73 bayt

Mektubun yatay kısımlarını hizalamak için f-dizeleri kullanma :

lambda n:'\n'.join(f"{'A'+' A'[i==n//2]*2*i:>{n+i}}"[:-1]+'A'for i in range(n))

İle \bbirini silmek için kullanılan A(muhtemelen hile):

lambda n:'\n'.join(f"{'A'+' A'[i==n//2]*2*i:>{n+i}}\bA"for i in range(n))

Java (JDK 10) , 124 bayt

n->{var a=new char[n][n+n-1];for(int c=n,r;c-->0;)for(r=n;r-->0;)a[r][n+n-c-2]=a[r][c]+=r==n/2&c>=r|r==n+~c?65:32;return a;}

Çevrimiçi deneyin!

J , 65 bayt

f=:3 :''' A''{~1(([:(<@;]+i.@+:)<.@-:)y)}([:(}:@|."1,.])=/~@i.)y'

Çevrimiçi deneyin!

Yakl. 12 byte'lık basitçe fiili zımni yaparak, ama bunu yaparken problemlerim var.

Açıklama:

3 : '...' açık bir tek katlı fiil anlamına gelir

y argüman

=/~@i. argümanı boyutlandıran bir kimlik matrisi oluşturur

    =/~@i. 4
1 0 0 0
0 1 0 0
0 0 1 0
0 0 0 1

([:(}:@|."1,.]) her bir satırın son öğeleri düştüğünde ayna kopyası ile kimlik matrisini önler.

    ]a =. ([:(}:@|."1,.])=/~@i.) 4
0 0 0 1 0 0 0
0 0 1 0 1 0 0
0 1 0 0 0 1 0
1 0 0 0 0 0 1

1(...)}(...) sol bağımsız değişken tarafından seçilen, sağ bağımsız değişkenindeki konumlar 1 olarak değişir

([:(<@;]+i.@+:)<.@-:) - aşağıdakileri yaparak seçimi hazırlar:

               <.@-: - halves the argument and finds the floor (finds the row number)
    <@;              - box the row, followed by a list of columns:  
        ]+i.@+:      - a list form the argumnt to the doubled row number

    ([:(<@;]+i.@+:)<.@-:) 4
┌───────────┐
│┌─┬───────┐│
││2│2 3 4 5││
│└─┴───────┘│
└───────────┘

    1(([:(<@;]+i.@+:)<.@-:) 4)}a
0 0 0 1 0 0 0
0 0 1 0 1 0 0
0 1 1 1 1 1 0
1 0 0 0 0 0 1

' A'{~ olduğu yerlerde 0 ve 'A' yerlerinde bir boşluk oluşturur 1

    ' A'{~1(([:(<@;]+i.@+:)<.@-:) 4)}a
   A   
  A A  
 AAAAA 
A     A

Tuval , 17 13 bayt

A×／╶½A×╶»╵：╋│

Burada deneyin!

Dzaima sayesinde -4 bayt !

Ruby , 66 bayt

->n{(0...n).map{|i|(s=(i==n/2??A:?\s)*2*i+?A)[0]=?A;?\s*(n+~i)+s}}

Çevrimiçi deneyin!

Satır dizisi olarak döner

SOGL V0.12 , 12 bayt

 A*:╚╥≤.»I:ž

Buradan Deneyin!

Açıklama:

 A*           repeat "A" input times
   :          duplicate it
    ╚         create a "/" diagonal of one of the copies of As
     ╥        palindromize it horizontally
      ≤       get the other copy of the "A"s on top
       .»I:   push floor(input/2)+1 twice
           ž  and at those coordinates in the palindromized diagonals place in the row of As

Japt -R , 20 19 bayt

Çç" A"gZ¶Uz¹i'A êÃû

Dene

açıklama

                        :Implicit input of integer U
Ç                       :Create the range [0,U) and pass each Z through a function
         Uz             :  Floor divide U by 2
       Z¶               :  Test for equality with Z (true=1, false=0)
  " A"g                 :  Get the character in the string " A" at that index
 ç                      :  Repeat Z times
           ¹            :  (Closes a few nested methods)
            i'A         :  Prepend an "A"
                ê       :  Palindromise
                 Ã      :End function
                  û     :Centre pad each element to the length of the longest element
                        :Implicitly join with newlines and output

Alternatif

(Umarım bazı tasarrufları tespit etmeme yardımcı olabilir!)

Æ'AúXÄ" A"gX¶Uz¹êÃû

Ruby , 73 bayt

->n{(0...n).map{|i|(?A.ljust(i*2,i==n/2??A:' ')+(i>0??A:'')).center n*2}}

Çevrimiçi deneyin!

Jöle , 23 20 19 18 bayt

=þ`o\L‘HĊƲ¦UŒBị⁾A 

Çevrimiçi deneyin!

=þ`boyutta bir kimlik matrisi oluşturur n.

L‘HĊƲyatay çubuğun satır dizinini, ¦o satırı seçerek o\ve çubuğu oluşturan uygulayıcıya uygulayarak bulur .

Uher satırı tersine çevirir, böylece baş aşağı "A" yok ve ŒB(palindromize; vectorize eder) "A" nın ikinci yarısını yapar.

ị⁾A(biçimlendirmede kırpılan bir 0boşlukla ), s ile boşlukları ve 1s ile As'yi değiştirir.

T-SQL , 182177 bayt

DECLARE @n INT=5DECLARE @ INT=0a:DECLARE @s VARCHAR(9)=STR(POWER(10,@),@n)PRINT REPLACE(REPLACE(@s+REVERSE(LEFT(@s,@n-1)),'1','A'),'0',IIF(@=@n/2,'A',' '))SET @+=1IF @<@n GOTO a

İlk sürüm (182 bayt ile):

DECLARE @n INT=5DECLARE @ INT=0WHILE @<@n BEGIN DECLARE @s VARCHAR(9)=STR(POWER(10,@),@n)PRINT REPLACE(REPLACE(@s+REVERSE(LEFT(@s,@n-1)),'1','A'),'0',IIF(@=@n/2,'A',' '))SET @+=1 END

Yukarıdaki sürüm @ n = 9'a kadar çalışır.

@ N = 23'e kadar çalışan ancak 2 ekstra bayta sahip başka bir sürüm:

DECLARE @n INT=5DECLARE @ INT=0WHILE @<@n BEGIN DECLARE @s VARCHAR(23)=STR(POWER(10.,@),@n)PRINT REPLACE(REPLACE(@s+REVERSE(LEFT(@s,@n-1)),'1','A'),'0',IIF(@=@n/2,'A',' '))SET @+=1 END

Ungolfed:

DECLARE @n INT=5

DECLARE @i INT=0
WHILE @i<@n BEGIN
    DECLARE @s VARCHAR(9)=STR(POWER(10,@i),@n)
    PRINT REPLACE(REPLACE(@s+REVERSE(LEFT(@s,@n-1)),'1','A'),'0',IIF(@i=@n/2,'A',' '))
    SET @i+=1
END

Haskell , 98 97 95 bayt ve 109 bayt

Çok farklı iki yaklaşım. İlk (95 bayt):

c!n=([1..n]>>c)++"A"
f n=unlines[" "!(n-x)++drop 3([" "!(abs$n`div`2-x+1)!!0]!(2*x))|x<-[1..n]]

ve ikinci (109 bayt):

m True='A'
m _=' '
g n=unlines[[m(abs(n-j)==l||l==q&&elem j[q+1..q+n])|j<-[1..2*n]]|l<-[0..n-1],q<-[n`div`2]]

Burada deneyin! ; Değiştirilmiş sürümü burada deneyin!

Burada üçüncü sürümü deneyin!

Python 2 , 70 bayt veya 65 bayt

@Budd yorumlarda belirtildiği gibi dizelerin listesi kabul edilebilir sonuçtur.

lambda n:['%*sA\n'%(n+i,('A'+i*2*' A'[i==n/2])[:-1])for i in range(n)]

Çevrimiçi deneyin!

Görünüşte ucuz bir çözüm \b. TIO'da korkak görünüyor, konsolda işi yapıyor.

lambda n:['%*s\bA\n'%(n+i,'A'+i*2*' A'[i==n/2])for i in range(n)]

Çevrimiçi deneyin!

Javascript, 124 bayt

Oldukça naif bir çözüm, js becerilerini uygulamak için bir şans verdi.

for(i=-1,p=" ".repeat(n-1)+"A ";++i<n;console.log(i-~~(n/2)?p:p.slice(0,i)+"A".repeat(n)),p=p.slice(1,n)+" "+p.slice(n-1)){}

Paketlenmemiş

for(
 //create the first line
 i=-1, p=" ".repeat(n-1)+"A "; 
 ++i<n;
 console.log( 
 //if we are not at the bar
      i-~~(n/2)?
 //otherwise, use the modified previous line
      p
 //slice the start of the previous line and add As
      :p.slice(0,i)+"A".repeat(n)), 
 //add a space in between the previous line and remove padding on each side
 p=p.slice(1,n)+" "+p.slice(n-1)){}

Perl 5 -n , 57 bayt

#!/usr/bin/perl -n
say$"x-$_.uc(A x($n+$_&-2?1:$n*2)|$"x2x$n++.A)for 1-$_..0

Çevrimiçi deneyin!

Python 3 , 93 , 88 bayt

lambda n:'\n'.join(f"{'A'+(x>0)*('A '[x!=n//2]*(x*2-1)+'A'):^{n*2-1}}"for x in range(n))

Çevrimiçi deneyin!

F-string kullanarak @ovs tarafından -3