Olumlu bir tamsayı verildiğinde , aşağıdaki yapının n >= 1ilk nsatırlarını verin:

   #
  # #
  ###
 #   #
 # # #
 ## ##
 #####
#     #
#  #  #
# # # #
# ### #
##   ##
## # ##
### ###
#######

nİnci 1-endeksli sıra ikili temsilidir nile son karakteri kopyalamadan yansıtılmış, #1 yerine ve <space>ortalanır 0 bütün satırların bir yer.

ASCII-art olarak çıktı almalısınız ancak #örnekte kullandığım yerin yerine herhangi bir boşluk olmayan karakter kullanabilirsiniz . Sondaki boşluk boşluğa izin verilir ve sondaki yeni satıra izin verilir. Çıktı, örnek gibi görünmeli ve fazladan satır aralığı veya satırsonu hattı içermemelidir.

Burada fraktal katedralin ilk 1023 sırasını görebilirsiniz .

Daha büyük test senaryoları oluşturmak için, Python'da temelsiz referans uygulaması

MATL , 10 bayt

:B2&Zv35*c

Çevrimiçi deneyin!

açıklama

:      % Implicitly input n. Push range [1 2 ... n]
B      % Convert to binary. Gives a matrix where each row corresponds to
       % a number. Rows have left-padding zeros if needed
2      % Push 2
&Zv    % Symmetrize along sepecified dimension (2nd means horizontally),
       % without repeating the last element
35*    % Multiply by 35 (ASCII code for '#')
c      % Convert to char. Char 0 is shown as space. Implicitly display

05AB1E , 9 bayt

Kod:

Lb€û.c0ð:

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

Açıklama:

L              # List [1, .., input]
 b             # Convert each to binary
  €û           # Palindromize each binary number
    .c         # Join the array by newlines and centralize
      0ð:      # Replace zeroes by spaces

Jöle , 12 bayt

RBUz0ZUŒBo⁶Y

Çevrimiçi deneyin!

Python 2 , 92 bayt

n=input()
for x in range(n):s=bin(2**len(bin(n))/4+x+1)[3:].replace(*'0 ');print s+s[-2::-1]

Çevrimiçi deneyin!

Python 3'te, s=f'{x+1:0{len(bin(n))-2}b}'.replace(*'0 ')daha kısadır, ancak argümanın int(input())etrafındaki parens print95 byte'a çıkar.

JavaScript (ES6), 106 bayt

1Boşluk olmayan karakter olarak kullanır .

f=(n,k=0)=>k++<n?[...Array(32-Math.clz32(n))].reduce((s,_,i)=>(c=k>>i&1||' ')+s+(i?c:''),'')+`
`+f(n,k):''

gösteri

f=(n,k=0)=>k++<n?[...Array(32-Math.clz32(n))].reduce((s,_,i)=>(c=k>>i&1||' ')+s+(i?c:''),'')+`
`+f(n,k):''

O.innerText = f(15)

<pre id=O>

Alternatif sürüm (aynı boyutta)

Olmadan Math.clz32():

f=(n,a=[k=i=0])=>n>>i+1?f(n,a,a[++i]=i):k++<n?a.reduce((s,i)=>(c=k>>i&1||' ')+s+(i?c:''),'')+`
`+f(n,a):''

Kabuğu , 21 20 18 bayt

2 bayt kapalı golf için teşekkürler @ Zgarb!

S↑(tfS=↔ΠR" #"←DLḋ

Çevrimiçi deneyin!

Ungolfed / Açıklama

Uzun dolguyu önlemek için, bu şekilde verilen fraktalın genişliğini belirler ve 2*len(bin(N))-1bu uzunluktaki tüm dizileri sembollerle oluşturur #,_('_' bir boşluk gösterir).

Kartezyen gücü sırayla üretildiğinden ve ikili sayılar da olduğundan, bu iyidir. Bu noktada fraktal almak için tek yapmamız gereken, tüm palindromları filtrelemek ve işte temelde bu:

                    -- implicit input N
S↑(                 -- take N from the following list
        ΠR" #"      --   Cartesian power of [" #"] to
                Lḋ  --     number of bits in bin(N)
               D    --     2*
              ←     --     -1
    fS=↔            --   filter out palindromes
   t                --   drop the first line (all spaces)

Mathematica, 94 bayt

Column[Row/@Table[s=IntegerDigits[i,2];Join[s,Reverse@Most@s]/.{0->" ",1->"#"},{i,#}],Center]&

Mathematica, 98 bayt

Riffle[Nest[ArrayFlatten@{{0,#,0},{1,0,1},{1,#,1}}&,{1},⌊Log2@#⌋]~Take~#"#"/. 0->" ","
"]<>""&

Wolfram kum havuzunda deneyin ! ⌊Ve ⌋üç her bayt.

Desenin fraktal doğasını kullanarak, şimdiye kadar diğer cevaplardan farklı bir yaklaşım. Anahtar adım, ArrayFlatten@{{0,#,0},{1,0,1},{1,#,1}}&fraktal şeyleri yapan, resim biçiminde en iyi şekilde açıklanmıştır:

                 [    ]
                 [grid]
[    ]           [    ]
[grid]   --->   #      #
[    ]          #[    ]#
                #[grid]#
                #[    ]#

Kod, en az n satır almak için bu adımı yeterince tekrarlar , sonra ilave satırları keser ve güzel görüntüler.

Gaia , 11 bayt

 #”B¦ₔṫ¦€|ṣ

Çevrimiçi deneyin!

açıklama

    ¦ₔ       For each number 1..input:
 #”B          Convert it to base 2 and use space as 0 and # as 1
      ṫ¦     Palindromize each
        €|   Centre the lines
          ṣ  Join with newlines

Python 2 , 120 118 107 bayt

thanks @luismendo, @officialaimm, @ halvard-hummel

def f(l):
 for a in range(1,l+1):print(bin(a)[2:]+bin(a)[-2:1:-1]).replace(*'0 ').center(len(bin(l+1))*2-4)

Çevrimiçi deneyin!

C # (.NET Core) , 192 178 bayt 168 + 23

Yardımlarınız için teşekkürler TheLethalCoder.

x=>new int[x].Select((_,z)=>Convert.ToString(z+1,2).PadLeft((int)Math.Log(x,2)+2).Replace('0',' ')).Aggregate((y,z)=>y+"\n"+z+new string(z.Reverse().Skip(1).ToArray()))

Çevrimiçi deneyin!

bu büyük olasılıkla dize dolgu ve ters büyük olasılıkla, azaltılabilir emin olabilirsiniz.

Kömür , 28 bayt

Ａ…·¹ＮθＷ⌈θ«Ｅθ§ #κ↓⸿ＡＥθ÷κ²θ»‖Ｏ

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

Ａ…·¹Ｎθ

İlk ndoğal sayıların bir listesini oluşturun .

Ｗ⌈θ«

Tüm elemanlar sıfır olana kadar tekrarlayın.

Ｅθ§ #κ

Listedeki her bir öğenin son ikili basamağını a veya olarak yazdırın #.

↓⸿

Önceki sütuna git.

ＡＥθ÷κ²θ

Listenin tüm öğelerini ikiye bölün.

»‖Ｏ

Sol yarı çizildikten sonra yansıtın.

J, 29 bayt

' #'{~(],}.@|.)"1@(#.^:_1)@i.

Çevrimiçi deneyin!

açıklama

• i. n'ye kadar tamsayılar, giriş
• (#.^:_1) üs 2'ye dönüştürüldü
• (],}.@|.)satır satır ( "1bu kısım yapar), ikili sayıyı alın ( ]fn kimliğidir) ve ,tersine ( |.) tersini ( ) tersten ( }.) ile işaretleyin.
• ' #'{~dönüştürür 1S ve 0karma ve boşluklarına s.

Proton , 95 bayt

r=>{for i:range(1,r)print(((bin(i)[2to]).rjust(len(bin(r))-2)[to-1,to by-1]).replace('0',' '))}

Çevrimiçi deneyin!

Çok fazla brakete sahip olmayacak çok fazla böcek var ... Ayrıştırıcıyı düzeltmem gerekiyor ...

SOGL V0.12 , 11 bayt

∫2─0@ŗ}¹╬⁴╚

Burada dene!

PHP, 98 97 95 94 + 1 bayt

while($r++<$argn)echo$s=strtr(sprintf("%".-~log($argn,2).b,$r),0," "),substr(strrev("
$s"),1);

Pipe ile çalıştırın -nRveya çevrimiçi deneyin . 1Boşluk olmayan olarak kullanır .

K (ngn/k), 19 bytes

{" #"@+a,1_|a:!x#2}

Try it online!

Python 2, 93 bytes

n=input()
for i in range(n):s=bin(2**n.bit_length()+i+1)[3:].replace(*'0 ');print s+s[-2::-1]

Try it online!

Python 2, 89 bytes

n=input()+1
w=' #'
while len(w)<n:w=[s+l+s for s in' #'for l in w]
print'\n'.join(w[1:n])

Try it online!

C (gcc) , 146 108 105 bayt

#define o putchar(33-!(c&(1<<n)))
b;c;p(n){--n?o,p(n),o:o;}f(n){while(n>>++b);while(c++<n)p(b),puts("");}

Çevrimiçi deneyin!

Bu, boşluk sayısı olmayan bir ünlem işareti ( ) kullanan f(n)satır sayısıyla adlandırılan bir işlevdir .n!

Açıklama :

#define o putchar(33-!(c&(1<<n)))
b;c;
p(n)
{
    // least significant bit not yet reached?
    --n?
            // print bit twice with recursive step between
            o,
            p(n),
            o
        // for least significant, just print this bit
        :o;
}

// the main "cathedral function":
f(r)
{
    // determine max number of bits to shift
    while(r>>++b);

    // iterate over rows
    while(c++<r)

        // print row recursively
        p(b),

        // newline
        puts("");
}

/**
 * footer, just calling the function
 */
main(int argc, char **argv)
{
    f(atoi(argv[1]));
}

JavaScript (Node.js), 156 149 bytes

-7 bytes by @ConorO'Brien

f=(n,w=n.toString(2).length,b=n.toString(2).replace(/0/g," "),s=" ".repeat(w-b.length))=>`${--n?f(n,w)+s+b+[...b].reverse().join``.substr(1):s+"1"}
`

Try it online!

Recursive function. Unfortunately JS does not support reversing a string, so 19 bytes are used on turning it into an array and back.

Perl 5, 77 + 1 (-n) = 78 bytes

$x=1+(log$_)/log 2;map{$_=sprintf"%0${x}b",$_;y/0/ /;say$_.chop.reverse}1..$_

Try it online!

Using '1' instead of '#' because it saves a couple bytes.

Stax, 8 bytes

ç▼┼Ö☺ǬÉ

Run and debug it

Shortest answer so far. Uses CP437 charcode 1 in place of #.

ASCII equivalent:

{:B|pm|Cm