도전

integer가 주어지면 size다음을 수행 하는 함수 또는 프로그램을 작성하십시오 .

경우 size1과 동일 출력

H H
HHH
H H

경우 size1 출력보다 더 큰

X X
XXX
X X

X프로그램 / 기능의 출력은 어디에 있습니까?size - 1

(원하는 경우 0답변에 지정 하는 한 기본 사례가에 해당 할 수 있습니다. )

다음과 같은 출력 형식 중 하나를 사용하는 것이 더 편리합니다.

• H및에 해당하는 두 개의 고유 문자가있는 필수 구조의 문자열space

• 필요한 구조를 갖는 2 차원 배열 H이며space

• 두 고유 값에 대응하는 각 캐릭터의 출력의 한 라인으로 배열 / 문자열리스트, H및space

각 줄에 일정한 양의 선행 공간이있는 한 선행 공간이 허용됩니다. 두 개의 고유 한 출력 문자는 다른 한 원하는대로 선택할 수 있습니다.

코드가 반환하는 출력 형식을 지정하십시오.

테스트 사례

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 Language (Mathematica) , 46 바이트

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

0s와 1s 의 2 차원 배열을 반환합니다 .

온라인으로 사용해보십시오!

캔버스 , 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>, 패턴의 첫 번째 및 세 번째 행의 빈 공간에 의해 내재적으로 첨가 ＋.

dzaima 덕분에 -2 바이트 !

MATL , 12 11 바이트

t:"[ACA]BX*

입력 주어 n,이 포함 된 매트릭스를 출력 0하고n .

온라인으로 사용해보십시오!

이것을 문자 행렬 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)

Stax , 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 바이트

출력은 한 줄에 하나씩 문자열 목록입니다.

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

온라인으로 사용해보십시오!

하스켈 , 50 바이트

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

온라인으로 사용해보십시오!

0과 1의 격자를 만듭니다. 공백과 H의 경우 한 문자가 더 깁니다.

하스켈 , 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| 모드 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의 1위해 H및 0공간.

자바 (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[][]with 및 for with 0를 반환합니다 . 이것은 실제로 " piling"대신에 "의 벽"을 조각 합니다.H1spaceHH

설명

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

온라인으로 사용해보십시오!

16 진 덤프 :

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

이것은 기본적으로 Sierpinski 카펫 및 Anarchy Golf 의 Fractal Plus 와 완전히 동일한 접근 방식 입니다.

파이썬 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)]

온라인으로 사용해보십시오!

함수는 문자열 목록을 출력합니다.

파이썬 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

하스켈, 73 67 64 55 바이트

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

에서 Prelude내보내기 때문에 최신 버전에서만 작동합니다 . TIO에서 실행하려면 다음과 같이 가져 오기를 추가하십시오. 온라인으로 사용해보십시오!<>Data.Semigroup

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 바이트.

펄 5 , 46 44 43 41 40 바이트

1 기반 계산. 사용 0및 1대한 H공간, 선도적있다 1(공간)

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 를 나타내는 2 차원 배열입니다.0 나타내고 공간 .

온라인으로 사용해보십시오!

숯 , 30 29 바이트

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

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 설명:

H

원본을 인쇄하십시오 H.

ＦＥＮＸ³ι«

size3 의 첫번째 거듭 제곱을 반복합니다 .

Ｊ⁰¦⁰

커서를 원점으로 다시 이동하십시오. Trim원본의 인쇄 H와 아래의 반사가 모두 커서를 움직이기 때문에 이것이 필요합니다 .

Ｃ⁰ι

이전 반복을 아래쪽으로 복사하여 도미노를 만듭니다.

Ｃιι

테트로 미노를 생성하여 결과를 아래로 복사하십시오.

Ｔ⊗ι⊗ι

캔버스를 L트리오 미노 모양으로 자릅니다.

‖ＯＯ→↓ι

캔버스를 가로 및 세로로 겹쳐서 겹치게하여 반복을 완료합니다.

숯은 다른 것보다 일부 프랙탈에서 더 좋습니다. 비슷한 아이디어가 있지만 크기는 거의 절반입니다.

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

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다.

파이썬 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 또는_ .

편집 : 행 / 열 루프를 하나로 결합하여 많은 시간을 절약했지만 내부 루프의 감소를 얻는 데 약간의 시간이 걸렸습니다. 전력 운영자를 위해 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 인덱싱), 제 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;}

기본 설정 (아니오 php.ini) 으로 실행 하거나 온라인으로 시도하십시오 .

펄, 64 바이트

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

-pstdin에서 입력이 필요합니다 . 출력은 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

문자열 반복 및 중앙 패딩으로 수행 할 수있는 HJapt에서 적어도 원래 패턴 보다 다루기가 훨씬 쉽습니다 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;
}