Meydan okuma

Bir tamsayı verildiğinde sizeaşağıdakileri yapan bir işlev veya program oluşturun :

Eğer size1 'e eşit olduğu, çıkış

H H
HHH
H H

Eğer size1, çıktı daha büyüktür

X X
XXX
X X

Xprogramın / fonksiyonun çıktısı neredesize - 1

(İsterseniz 0, cevabınızı belirttiğiniz sürece , temel davaya karşılık gelebilir )

Aşağıdaki çıktı biçimlerinden herhangi biri kabul edilebilir; hangisi sizin için daha uygunsa:

• İstenen yapının bir dize ve karşılık gelen herhangi iki farklı karakter Hilespace

• İstenen yapıya sahip iki boyutlu bir dizi, Hvespace

• Herhangi iki farklı değerlerine karşılık gelen her bir dize çıktının bir satır ile bir dizi / şeritlerinin listesi, Hvespace

Her satırda sabit miktarda öncü alan olduğu sürece, öncü alanlara izin verilir. İki farklı çıktı karakteri, farklı oldukları sürece seçtiğiniz herhangi bir şeye bağlı olabilir.

Kodunuzun döndürdüğü çıktı biçimini belirtin.

Test Kılıfları

1

H H
HHH
H H

2

H H   H H
HHH   HHH
H H   H H
H HH HH H
HHHHHHHHH
H HH HH H
H H   H H
HHH   HHH
H H   H H

3

H H   H H         H H   H H
HHH   HHH         HHH   HHH
H H   H H         H H   H H
H HH HH H         H HH HH H
HHHHHHHHH         HHHHHHHHH
H HH HH H         H HH HH H
H H   H H         H H   H H
HHH   HHH         HHH   HHH
H H   H H         H H   H H
H H   H HH H   H HH H   H H
HHH   HHHHHH   HHHHHH   HHH
H H   H HH H   H HH H   H H
H HH HH HH HH HH HH HH HH H
HHHHHHHHHHHHHHHHHHHHHHHHHHH
H HH HH HH HH HH HH HH HH H
H H   H HH H   H HH H   H H
HHH   HHHHHH   HHHHHH   HHH
H H   H HH H   H HH H   H H
H H   H H         H H   H H
HHH   HHH         HHH   HHH
H H   H H         H H   H H
H HH HH H         H HH HH H
HHHHHHHHH         HHHHHHHHH
H HH HH H         H HH HH H
H H   H H         H H   H H
HHH   HHH         HHH   HHH
H H   H H         H H   H H

Bu kod golf , yani her dil için en düşük bayt sayısı kazanıyor!

Wolfram Dili (Mathematica) , 46 bayt

Nest[ArrayFlatten@{r={#,0,#},{#,#,#},r}&,1,#]&

2d dizisini 0s ve 1s döndürür .

Çevrimiçi deneyin!

Tuval , 14 12 bayt

H；［⌐⌐∔＊×∔；３＊＋

Burada dene!

Code    |Instruction                                                         |Stack
--------+--------------------------------------------------------------------+-------------------------
        |Push input to stack (implicit)                                      |I
H       |Push "H" to stack                                                   |I,"H"
；      |Swap the top two stack items                                        |"H",I
［      |The following ToS (input) times:                                    |X
    ⌐⌐  |Duplicate ToS (result from last loop ("H" if first loop)) four times|X,X,X,X,X
    ∔   |Join vertically                                                     |X,X,X,X\nX
    ×   |Prepend                                                             |X,X,XX\nX
    ∔   |Join vertically                                                     |X,X\nXX\nX
    ；  |Swap top two stack items                                            |X\nXX\nX,X
    ３＊|Repeat three times vertically                                       |X\nXX\nX,X\nX\nX
    ＋  |Join horizontally                                                   |X<space>X\nXXX\nX<space>X
        |End loop (implicit)                                                 |X
        |Print ToS (implicit)                                                |

IGirdi nerede , Xönceki döngü (ilk döngü için "H") tarafından oluşturulan modeldir ve modelin <space>birinci ve üçüncü satırındaki boş alandır, dolaylı olarak eklenir ＋.

Dzaima sayesinde -2 bayt !

MATL , 12 11 bayt

t:"[ACA]BX*

Verilen giriş n, bu 0ve içeren bir matris çıkarır n.

Çevrimiçi deneyin!

Bunu karakter matrisine dönüştürmek için ve başlıkta Hboşluk ekleyin g72*c. Online olarak da deneyin!

Veya ]1YCgrafik olarak gösterilen matrisi görmek için ekleyin . MATL Online'da deneyin !

açıklama

t          % Input (implicit): n. Duplicate
:          % Range. Gives the array [ 1 2 ... n]
"          % For each (that is, do n times)
  [ACA]    %   Push the array [5 7 5]
  B        %   Convert to binary. Gives the 3×3 matrix [1 0 1; 1 1 1; 1 0 1]
  X*       %   Kronecker product
           % End (implicit). Display (implicit)

Stax , 16 15 bayt

╛c_mê║6{│◙ÖmπV"

Koş ve hata ayıkla

Bu, programın yorumlu ascii temsilidir. Bu program H'yi yana doğru oluşturur ve daha sonra bir kez çevrilir.

'H]                 ["H"]
   {         },*    repeat block specified number of times
    c               copy the matrix
     {3*m           triplicate each row
         |S         surround; prepend and append like b + a + b
           |C       horizontally center rows with spaces
                M   transpose back to original orientation
                 m  output each row

Bonus 14 byte programı - girişini çıkış karakteri olarak kullanır. Teorik olarak, bu 10 basamakta doğru şekli üretmez, çünkü 2 rakamı vardır, ancak tarayıcıyı çökertecek şekilde çalışmayı dener.

Ruby , 72 bayt

Çıktı, dizgelerin bir listesidir, her satıra bir dizedir.

f=->n{n<1?[?H]:[*a=(x=f[n-1]).map{|i|i+' '*i.size+i},*x.map{|i|i*3},*a]}

Çevrimiçi deneyin!

Haskell , 50 bayt

f 0=[[1]]
f n=[x++map(*c)x++x|c<-[0,1,0],x<-f$n-1]

Çevrimiçi deneyin!

0 ve 1 'lerden oluşan bir ızgara yapar. Boşluklar ve H'ler için bir karakter daha uzun.

Haskell , 51 bayt

f 0=["H"]
f n=[x++map(min c)x++x|c<-" H ",x<-f$n-1]

Çevrimiçi deneyin!

Jöle , 17 16 15 bayt

381B«€s3Z€ẎF€µ¡

Bu, 1 've 0 ' lık 2D dizileri basan tam bir programdır .

Çevrimiçi deneyin! veya çıktıyı H ve boşluklarla görün.

APL (Dyalog Klasik) , 14 bayt

×/¨∘.≥⍨2|,⍳⎕⍴3

Çevrimiçi deneyin!

⎕ değerlendirilen girdi n

,⍳⎕⍴3 0 1 2 'den elemanlara sahip tüm n-tupler

2| mod 2

×/¨∘.≥⍨ Her çift a ve b çiftlerini karşılaştırarak bir matris oluşturmak

SOGL V0.12 , 13 bayt

┌.{³2∙⁴┼+;3∙┼

Burada dene!

R , 64 bayt

function(n)Reduce(`%x%`,rep(list(matrix(c(1,1,1,0,1,0),3,3)),n))

Çevrimiçi deneyin!

Luis Mendo'nun cevabını utanmaz bir liman olarak Kronecker ürünüyle azaltır .

Altbilgi güzel sonucu basar, ama bu bir döndüren isimsiz işlevdir matrixait 1için Hve 0alan için.

Java (OpenJDK 9) , 135 bayt

n->{n+=Math.pow(3,n)-n;int s=1,H[][]=new int[n][n],x,y;for(;s<n;s*=3)for(x=n;x-->0;)for(y=n;y-->0;)H[x][y]|=~(x/s%3)&y/s%3&1;return H;}

Çevrimiçi deneyin!

Bir döndürür int[][]ile 0için Hve 1için space. Bu aslında “ Hkazık” yerine bir duvarı “oyuyor” H.

açıklamalar

n->{                        // An int to int[][] lambda function
  n+=Math.pow(3,n)-n;       //  change n to 3^n, through +=...-n to avoid an explicit cast
  int s=1,                  //  size of the carvings.
      H[][]=new int[n][n],  //  the 2D array to return, filled with 0s
      x,                    //  counter for the 2D array
      y;                    //  counter for the 2D array
  for(;s<n;s*=3)            //  for each size
    for(x=n;x-->0;)         //   for each row
      for(y=n;y-->0;)       //    for each column
        H[x][y] |=          //     assign 1 to a cell of the array if...
           ~(x/s%3)         //      it is located in the "holes" of the H
          &y/s%3            //
          &1;               //      
  return H;                 //  return the array
}                           // end the lambda

V , 22 bayt

éHÀñäLgvr PGï3PkyHGpH

Çevrimiçi deneyin!

HexDump:

00000000: e948 c0f1 e416 4c67 7672 2050 47ef 3350  .H....Lgvr PG.3P
00000010: 6b79 4847 7048                           kyHGpH

Bu temelde Sierpinski halısı ve Anarchy Golf'teki The Fractal Plus ile aynı yaklaşımdır .

Python 2,70 bayt

f=lambda r:-r*'H'or[x+[x,' '*3**r][b]+x for b in 1,0,1for x in f(r-1)]

Çevrimiçi deneyin!

İşlev, dizelerin bir listesini çıkarır.

Python 2 , 84 bayt

r=input()
for i in range(3**r):x,s=' H';exec"s+=[x,s][i%3%2]+s;x*=3;i/=3;"*r;print s

Çevrimiçi deneyin!

Diğer 3 * 3 fraktal kalıplarla aynı şablonu kullanır:

• Sierpinski halısı
• Fraktal X
• Fraktal artı .

J , 25 22 bayt

,./^:2@(*/#:@5 7 5)^:]

Çevrimiçi deneyin!

        */               multiply by
          #:@5 7 5       the binary matrix shaped like H
,./^:2                   assemble the 4-dimensional result into a matrix
                   ^:]   do it input times

Haskell, 73 67 64 55 bayt

g#f=g<>f<>g
w=map.(id#)
(iterate(w(>>" ")#w id)["H"]!!)

Bu yalnızca son sürümü ile çalışır Preludebu ihraç, çünkü <>gelen Data.Semigroup. TIO'da çalıştırmak için, burada olduğu gibi bir içe aktarma ekleyin: Çevrimiçi deneyin!

g#f=              -- function # takes two functions g and f and a list s
                  -- and returns
   g <> f <> g    -- g(s), followed by f(s) and another g(s)

w=                -- w takes a function and a list of lists
                  -- (both as unnamed parameters, because of pointfree style,
                  -- so let's call them f and l)
  map.(id#)       -- return map(id#f)l, i.e. apply (id#f) to every element of l

  w(>>" ")#w id   -- this partial application of # is a function that
                  -- takes the missing list (here a list of lists)
                  -- remember: (>>" ") is the function that replaces every element
                  -- of a list with a single space

iterate(   )["H"] -- starting with a singleton list of the string "H"
                  -- which itself is a singleton list of the char 'H'
                  -- repeatedly apply the above function
              !!  -- and pick the nth iteration



Example for ["H H", "HHH", "H H"], i.e.

   H H
   HHH
   H H

call the iterated function:
                    ( w(>>" ")         # w id       ) ["H H","HHH","H H"]

expand w:           ( map(id#(>>" "))  # map(id#id) ) ["H H","HHH","H H"]

expand outermost #: map(id#(>>" "))["H H","HHH","H H"] ++
                    map(id#id)     ["H H","HHH","H H"] ++
                    map(id#(>>" "))["H H","HHH","H H"]

expand map:         [(id#(>>" "))"H H",   (id#(>>" "))"HHH",   (id#(>>" "))"H H"] ++
                    [(id#id)     "H H",   (id#id)     "HHH",   (id#id)     "H H"] ++
                    [(id#(>>" "))"H H",   (id#(>>" "))"HHH",   (id#(>>" "))"H H"]

expand other #:     ["H H"++"   "++"H H", "HHH"++"   "++"HHH", "H H"++"   "++"H H"] ++
                    ["H H"++"H H"++"H H", "HHH"++"HHH"++"HHH", "H H"++"H H"++"H H"] ++
                    ["H H"++"   "++"H H", "HHH"++"   "++"HHH", "H H"++"   "++"H H"]

collaps ++:         ["H H   H H", "HHH   HHH", "H H   H H",
                     "H HH HH H", "HHHHHHHHH", "H HH HH H",
                     "H H   H H", "HHH   HHH", "H H   H H"]

which is printed line by line: 

  H H   H H
  HHH   HHH
  H H   H H
  H HH HH H
  HHHHHHHHH
  H HH HH H
  H H   H H
  HHH   HHH
  H H   H H

Düzenleme: @ Potato44 sayesinde -9 bayt.

Perl 5 , 46 44 43 41 40 bayt

1 tabanlı sayma. Kullanımları 0ve 1için Hve uzay, lider vardır 1(boşluk)

say//,map/$'/^1,@;for@;=glob"{A,.,A}"x<>

Mtve'nin klasik bir fikrine dayanır.

Çevrimiçi deneyin!

Vim - 66 56 54 bayt

A @ c H esc " r d ^ q c { ctrl-v } " a y g v r space g v d " a P P " a P V G " b y P g v ctrl-v $ d " a P . . G " b p q @ r

Giriş, tamponda bir sayı olarak alınır.

APL (Dyalog Unicode) , 38 34 bayt ^SBCS

({(⍵,(0×⍵),⍵){⍺⍪⍵⍪⍺}⍵,⍵,⍵}⍣⎕)1 1⍴1

Çıktı, 1H'yi 0temsil eden ve boşluğu temsil eden 2 boyutlu bir dizidir .

Çevrimiçi deneyin!

Kömür , 30 29 bayt

HＦＥＮＸ³ι«Ｊ⁰¦⁰Ｃ⁰ιＣιιＴ⊗ι⊗ι‖ＯＯ→↓ι

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

H

Orijinali yazdırın H.

ＦＥＮＸ³ι«

size3'ün ilk güçleri üzerinde döngü .

Ｊ⁰¦⁰

İmleci orijine geri götürün. Trimİhtiyaç duyduğunuzda, hem orijinalinin baskısı hem de Haşağıdaki yansıma imleci hareket ettirir.

Ｃ⁰ι

Bir domino oluşturarak önceki yinelemeyi aşağı doğru kopyalayın.

Ｃιι

Bir tetromino oluşturarak sonucu aşağı ve sağa kopyalayın.

Ｔ⊗ι⊗ι

Tuvali bir Ltriomino şekline indirin.

‖ＯＯ→↓ι

Tuvali yatay ve dikey olarak üst üste bindirerek yinelemeyi tamamlayın.

Kömür bazı fraktallarda diğerlerinden daha iyidir. İşte benzer bir fikir, ancak neredeyse yarısı boyutunda:

HＦＮ«⟲Ｃ²⁶‖ＯＯLＸ³ι

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

Python 2 , 143 bayt

def g(a,x,y,s):
	if s:s/=3;[g(a,x+k/3*s,y+k%3*s,s)for k in 0,2,3,4,5,6,8]
	else:a[x][y]=1
def f(s):s=3**s;a=eval("s*[0],"*s);g(a,0,0,s);print a

Çevrimiçi deneyin!

Özyinelemeli sayesinde -30 bayt

sarmalayıcı kodu güzel biçimlendirme içindir. eğer kaldırırsanız iyi çalışır

PHP 7, 125 109 bayt

Farklı bir yaklaşım: Yerine yuvalama ve yinelemeli sonucu düzleştirme, bu sadece satırlar ve sütunlar aracılığıyla döngüsü ve baskıya olmadığını öğrenmek için bir 3. döngü kullanır Hya _.

Düzenleme: Satır / sütun döngülerini birleştirerek çok fazla tasarruf sağladı, ancak iç döngüdeki düşüşün doğru olması biraz zaman aldı. Güç operatörü için PHP 7 gerektirir.

Onları çevrimiçi deneyin !

for($z=3**$argn;$z*$z>$q=$p;print$c."
"[++$p%$z])for($c=H;$q;$q-=$q/$z%3*$z,$q/=3)if($q%3==1&&$q/$z%3-1)$c=_;

sonucu yazdırır. İle boru olarak çalıştırın -nR.

nitelikli işlev, 147 130 bayt

function r($n){for($z=3**$n;$z*$z>$q=$p;$r.=$c."
"[++$p%$z])for($c=H;$q;$q-=$q/$z%3*$z,$q/=3)if($q%3==1&&$q/$z%3-1)$c=_;return$r;}

tek bir dize döndürür. Varsayılan config (no php.ini) ile çalıştırın .

Jöle , 25 bayt

,’b3U×"3S_4A1e
3*çþ`ị⁾ HY

Çevrimiçi deneyin!

Bu, mevcut Jelly sunumundan daha uzun olmasına rağmen , her karakteri bağımsız olarak sadece koordinattan üretmeye çalışır.

Özellikle, koordinatı olduğu (x,y)(1 indeksleme), birinci bağlantı döner 0ve 1karşılık gelen Hve sırasıyla.

,                Pair. Get (x,y)
 ’               Decrement. Get (x,y) (0-indexing)
  b3             Convert to base 3 digits.
    U            Upend. So next operations can pair the corresponding digits.
     ×"3         Multiply the first element (list) by 3.
        S        Sum (corresponding digit together). Let the sum be s.
         _4A1e   Check if any of abs(s-4) is 1. Equivalently, check
                 if there is any 3 or 5 in the list of s.

Ayrıca, ị⁾ HYbiçimlendirme için 5 bayt kullanılır, bu nedenle bu program (20 bayt) da geçerlidir (ancak çıktı hiç hoş görünmüyor):

,’b3U×"3S_4A1e
3*çþ`

T-SQL , 267 261 bayt

DECLARE @N INT=3DECLARE @ TABLE(I INT,H VARCHAR(MAX))INSERT @ VALUES(1,'H H'),(2,'HHH'),(3,'H H');WITH
T AS(SELECT 1 A,3 P,I J,H S FROM @ UNION ALL SELECT A+1,P*3,J*P+I,REPLACE(REPLACE(S,' ','   '),'H',H)FROM @,T
WHERE A<@N)SELECT S FROM T WHERE A=@N ORDER BY J

PHP 7, 153 bayt

    function p($n){$r=["H H",HHH,"H H"];if(--$n)foreach(p($n)as$s){$r[+$i]=$r[$i+6*$p=3**$n]=str_pad($s,2*$p).$s;$r[3*$p+$i++]=$s.$s.$s;}ksort($r);return$r;}

Varsayılan config (no php.ini) ile çalıştırın veya çevrimiçi deneyin .

Perl, 64 bayt

//;$_ x=3,$.=s|.+|$&@{[$$_++/$.&1?$&:$"x$.]}$&|g for($_=H.$/)x$'

Gerektirir -p, girdiler stdin'den alınır. Çıktı s, H'dir H.

Çevrimiçi deneyin!

PHP (5.6+), 94 bayt

<?for(;$H>$e*=3or$e=($i+=$e&&print"$s
")<${$s=H}=3**$argn;)$s.=str_pad($i/$e%3&1?$s:'',$e).$s;

İle Kullanılan -Fkomut satırı seçeneği. Tercüman varsayılanlarını ( -n) kabul eder. Güç operatörü nedeniyle 5.6'dan önceki sürümlerde çalışmaz.

Örnek kullanım

$ echo 3|php -nF h-carpet.php
H H   H H         H H   H H
HHH   HHH         HHH   HHH
H H   H H         H H   H H
H HH HH H         H HH HH H
HHHHHHHHH         HHHHHHHHH
H HH HH H         H HH HH H
H H   H H         H H   H H
HHH   HHH         HHH   HHH
H H   H H         H H   H H
H H   H HH H   H HH H   H H
HHH   HHHHHH   HHHHHH   HHH
H H   H HH H   H HH H   H H
H HH HH HH HH HH HH HH HH H
HHHHHHHHHHHHHHHHHHHHHHHHHHH
H HH HH HH HH HH HH HH HH H
H H   H HH H   H HH H   H H
HHH   HHHHHH   HHHHHH   HHH
H H   H HH H   H HH H   H H
H H   H H         H H   H H
HHH   HHH         HHH   HHH
H H   H H         H H   H H
H HH HH H         H HH HH H
HHHHHHHHH         HHHHHHHHH
H HH HH H         H HH HH H
H H   H H         H H   H H
HHH   HHH         HHH   HHH
H H   H H         H H   H H

Çevrimiçi deneyin!

CJam - 103 97 87 76 bayt

{H{ae_,S*}%}:Il~a:A];{A_W={)(a9*+:A;[[HIH][HHH][HIH]]{z~}%}{);:A;"H"}?}:H~N*

Bu program oldukça ayrıntılı bir "handcoded" özyinelemesini yapıyor. Akıllı matris çarpımı yok. Özyineleme boyunca, yığının tepesinde üst çağrılardan elde edilen çıktıyı toplayan bir dizi vardır. Her bir özyinelemeli çağrı kümesinin hemen ardından özyinelemeli çağrıların çıktısının, programın sonunda yığın doğrusal olarak yazdırıldığında çıktının doğru olduğundan emin olmak için birlikte sıkıştırılması gerekir. Özyinelemeden geçen argümanlar yığını değişkende tutulur A.

Çevrimiçi deneyin

K (ngn / k) , 18 bayt

{~|/a<\:'a:1=!x#3}

Çevrimiçi deneyin!

Japt , 23 bayt

_·£[X³XX³]Ãy c ·û}gQq)y

Çevrimiçi deneyin!

Ambalajsız ve Nasıl Çalışır?

Z{ZqR mXYZ{[Xp3 XXp3]} y c qR û}gQq)y

Z{    Declare a function that accepts a string...
  ZqR   Split by newline...
  mXYZ{   and map each row into...
    [Xp3 XXp3]  an array of [X.repeat(3), X, X.repeat(3)]
  }
  y   Transpose the resulting 2D array
  c   Flatten
  qR  Join with newline
  û   Center-pad each row to the longest
}
gQq)  Apply the above function to '"' recursively
y     Transpose the resulting 2D string

Aktarılan kalıbı kullanma

III
 I 
III

Orijinal Hdesenden daha kolay , en azından Idize tekrarlama ve merkez dolgusu ile yapılabilecek olan Japt'ta .

C ++ 11 - 138 bayt

Ancak bu cevabın burada geçerli bir sözdizimi olup olmadığından emin değilim.

#define A a?1:0
template<int N>struct H{H<N-1>h[9];H(int a):h{A,0,A,A,A,A,A,0,A}{}};template<>struct H<0>{char h;H(int a):h{a?'H':' '}{}};

Çalışma kodu ile Ungolfed

#include <iostream>

#define A a?1:0

template<int N>
struct H
{
  H<N-1> h[9];

  H(int a) : h{A,0,A,A,A,A,A,0,A}
  {}
};

template<>
struct H<0>
{
  char h;

  H(int a) : h{a?'H':' '}
  {}
};

int pow(int a, int b)
{
  int res=1;

  for (int i=1; i<=b; ++i)
    res *= a;

  return res;
}

template<int N>
char getHvalue(int i, int j, H<N> &hn)
{
  int n3=pow(3, N-1);

//std::cout << N << " " << i << " " << j << std::endl;

  return getHvalue(i%n3, j%n3, hn.h[i/n3*3+j/n3]);
}

template<>
char getHvalue<0>(int, int, H<0> &hn)
{
  return hn.h;
}

int main()
{
  H<0> h0(1);

  std::cout << getHvalue(0, 0, h0) << std::endl;

  std::cout << "\n====================\n" << std::endl;

  H<1> h1(1);

  for (int i=0; i<3; ++i) {
    for (int j=0; j<3; ++j)
      std::cout << getHvalue(i, j, h1);
    std::cout << std::endl;
  }

  std::cout << "\n====================\n" << std::endl;

  H<2> h2(1);

  for (int i=0; i<9; ++i) {
    for (int j=0; j<9; ++j)
      std::cout << getHvalue(i, j, h2);
    std::cout << std::endl;
  }

  std::cout << "\n====================\n" << std::endl;

  H<3> h3(1);

  for (int i=0; i<27; ++i) {
    for (int j=0; j<27; ++j)
      std::cout << getHvalue(i, j, h3);
    std::cout << std::endl;
  }

  return 0;
}