チャレンジ

整数を指定するとsize、次のことを行う関数またはプログラムを作成します。

size1に等しい場合、出力

H H
HHH
H H

場合はsize1、出力よりも大きく、

X X
XXX
X X

どこXのプログラム/関数の出力size - 1

（必要に応じて0、回答で指定する限り、ベースケースをに対応させることができます）

次の出力形式のいずれかが受け入れられますが、どちらがより便利です。

• 任意の二つの異なる文字に対応する必要な構造の文字列Hとspace

• 対応する任意の二つの別個の値を要求される構造を有する二次元アレイ、H及びspace

• 任意の二つの別個の値は、対応する各列における出力の一つの行と列/文字列のリスト、Hおよびspace

各行に一定量の先行スペースがある限り、先行スペースを使用できます。2つの異なる出力文字は、異なる限り、選択したものに依存します。

コードが返す出力形式を指定します。

テストケース

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

これはcode-golfなので、各言語の最低バイト数が勝ちです！

Wolfram言語（Mathematica）、46バイト

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

0sと1sの2次元配列を返します。

オンラインでお試しください！

Canvas、14 12 バイト

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

ここで試してみてください！

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

ここでI入力され、X前のループ（最初のループの「H」）によって生成されたパターンであり、<space>パターンの最初の3行目に空の空間であることにより、暗黙的に追加＋。

dzaimaのおかげで-2バイト！

MATL、12 11バイト

t:"[ACA]BX*

入力が与えられると、とnを含む行列が出力されます。0n

オンラインでお試しください！

これを文字マトリックスHとスペースに変換するにg72*cは、ヘッダーに追加します。オンラインでもお試しください！

または]1YC、マトリックスをグラフィカルに表示するために追加します。MATL Onlineでお試しください！

説明

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)

スタックス、16 15 バイト

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

実行してデバッグする

これは、コメント付きのプログラムのASCII表現です。このプログラムはHを横向きに構築し、最後に一度転置します。

'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

ボーナス14バイトプログラム -入力を出力文字として使用します。理論的には、これは2桁なので10で正しい形状を生成しませんが、実行しようとするとブラウザーがクラッシュします。

ルビー、72バイト

出力は、1行に1つの文字列のリストです。

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

オンラインでお試しください！

Haskell、50バイト

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

オンラインでお試しください！

0と1のグリッドを作成します。スペースとHの場合、1文字長くなります。

Haskell、51バイト

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

オンラインでお試しください！

ゼリー、17 16 15バイト

381B«€s3Z€ẎF€µ¡

これは、1と0の2D配列を出力する完全なプログラムです。

オンラインでお試しください！または、Hとスペースで出力を確認します。

APL（Dyalog Classic）、14バイト

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

オンラインでお試しください！

⎕ 評価された入力n

,⍳⎕⍴3 0 1 2の要素を持つすべてのnタプル

2| mod 2

×/¨∘.≥⍨ タプルaとbのすべてのペアを比較することにより行列を形成します-aのすべての要素がbの対応する要素以上の場合、a 1、それ以外の場合は0

SOGL V0.12、13のバイト

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

ここで試してみてください！

R、64バイト

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

オンラインでお試しください！

Luis Mendoの答えの恥知らずな移植として、Kronecker製品によって削減されます。

フッターは結果をうまく印刷しますが、これmatrixは1for Hおよび0forスペースを返す匿名関数です。

Java（OpenJDK 9）、135バイト

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

オンラインでお試しください！

返しint[][]で0用Hと1のためにspace。これは、実際Hには、「積み上げ」ではなく「」の壁を「切り分け」Hます。

説明

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バイト

éHÀñäLgvr PGï3PkyHGpH

オンラインでお試しください！

Hexdump：

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

これは基本的に、シェルピンスキーカーペットおよびアナーキーゴルフのフラクタルプラスとまったく同じアプローチです。

Python 2、70バイト

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

オンラインでお試しください！

関数は文字列のリストを出力します。

Python 2、84バイト

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

オンラインでお試しください！

他の3 * 3フラクタルパターンと同じテンプレートを使用します。

• シェルピンスキーカーペット
• フラクタルX
• フラクタルプラス。

J、25 22バイト

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

オンラインでお試しください！

        */               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バイト

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

これはPrelude、からエクスポートさ<>れるため、の最新バージョンでのみ機能しData.Semigroupます。TIOで実行するには、次のようにインポートを追加します。オンラインで試してください！

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

編集：@ Potato44のおかげで-9バイト。

Perl 5の、46の 44 43 41 40バイト

1ベースのカウント。for およびspaceを使用0し、先頭に（スペース）があります1H1

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

mtveによる古典的なアイデアに基づいています。

オンラインでお試しください！

Vim- 66 56 54バイト

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

入力はバッファ内の数値として取得されます。

APL（Dyalog Unicode）、38 34バイト^SBCS

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

出力は、1Hと0スペースを表す2次元配列です。

オンラインでお試しください！

炭、30 29バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

H

オリジナルを印刷しHます。

ＦＥＮＸ³ι«

size3 の最初の累乗でループします。

Ｊ⁰¦⁰

カーソルを原点に戻します。Trimの元の印刷とH下の反射の両方がカーソルを移動するため、これが必要です。

Ｃ⁰ι

前の反復を下方にコピーして、ドミノを作成します。

Ｃιι

結果を上下にコピーして、テトロミノを作成します。

Ｔ⊗ι⊗ι

キャンバスをLシェイプトリオミノにトリミングします。

‖ＯＯ→↓ι

キャンバスをオーバーラップして水平および垂直に反映し、反復を完了します。

いくつかのフラクタルの炭は他のフラクタルよりも優れています。同様のアイデアがありますが、サイズはほぼ半分です。

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。

Python 2、143バイト

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

オンラインでお試しください！

再帰的なおかげで-30バイト

ラッパーコードは、適切なフォーマット用です。削除してもうまくいきます

PHP 7、125 109バイト

異なるアプローチ：代わりに営巣し、再帰的に結果を平坦化するが、これはただの行と列をループして印刷するかどうかを確認するために第三のループを使用していますHか_。

編集：行/列ループを1つに結合することで大幅に節約されましたが、内側のループの減少を修正するには少し時間がかかりました。パワーオペレーターにはPHP 7が必要です。

オンラインで試してみてください！

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=_;

結果を出力します。パイプとして実行-nRます。

修飾関数、147130バイト

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

単一の文字列を返します。デフォルト設定で実行します（no php.ini）。

ゼリー、25バイト

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

オンラインでお試しください！

これは既存のJelly提出よりも長くなりますが、座標だけから独立して各キャラクターを生成しようとします。

具体的には、座標がある(x,y)（1-インデキシング）、第一リンク戻る0と1に対応Hし、 それぞれ。

,                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.

また、5バイトị⁾ HYはフォーマットに使用されるため、このプログラム（20バイト）も有効です（ただし、出力は見栄えがよくありません）。

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

T-SQL、267 261バイト

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バイト

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

デフォルトの設定（no php.ini）で実行するか、オンラインで試してください。

Perl、64バイト

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

が必要で-p、入力はstdinから取得されます。出力はHsのHです。

オンラインでお試しください！

PHP（5.6以降）、94バイト

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

-Fコマンドラインオプションと共に使用します。インタプリタのデフォルト（-n）を想定しています。パワーオペレータのため、5.6より前のバージョンでは動作しません。

サンプル使用法

$ 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

オンラインでお試しください！

CJam- 103 97 87 76バイト

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

このプログラムは、非常に冗長な「ハンドコーディングされた」再帰を実行します。スマートマトリックス乗算はありません。再帰全体を通して、スタックの最上部には、親呼び出しから取得した出力を収集する配列があります。再帰呼び出しの各セットの直後に、再帰呼び出しの出力をまとめて圧縮する必要があります。これは、プログラムの最後にスタックが直線的に印刷されるときに出力が正しいことを確認するためです。再帰に渡される引数のスタックは、変数に保持されますA。

オンラインで試す

K（ngn / k）、18バイト

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

オンラインでお試しください！

Japt、23バイト

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

オンラインでお試しください！

開梱と仕組み

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

転置パターンを使用する

III
 I 
III

H少なくともJaptでは、I文字列の繰り返しと中央のパディングで処理できるため、元のパターンよりも処理がはるかに簡単です。

C ++ 11-138バイト

ただし、この回答に有効な構文があるかどうかはわかりません。

#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':' '}{}};

作業コードでゴルフを解き放つ

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