Виклик

Створіть функцію або програму, яка при заданні цілого числа sizeвиконує такі дії:

Якщо sizeдорівнює 1, виведіть

H H
HHH
H H

Якщо sizeбільше 1, виведіть

X X
XXX
X X

де Xє вихід програми / функції дляsize - 1

(Якщо ви віддаєте перевагу, можливо, вам відповідає базовий випадок 0, якщо ви вказали у своїй відповіді)

Будь-який із наступних форматів виводу є прийнятним, залежно від того, що вам зручніше:

• Рядок необхідної структури з будь-якими двома різними символами, що відповідають Hіspace

• Двовимірний масив з необхідною структурою з будь-якими двома різними значеннями, що відповідають 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

Це код-гольф , тому найнижча кількість байтів для кожної мови виграє!

Мова Вольфрама (Mathematica) , 46 байт

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

Повертає 2d масив 0s і1 s.

Спробуйте в Інтернеті!

Полотно , 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>є порожнім пробілом у першому та третьому рядку шаблону, доданим неявно через ＋.

-2 байти завдяки dzaima !

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)

Стакс , 16 15 байт

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

Запустіть і налагоджуйте його

Це представлення програми ascii з коментарями. Ця програма збирає Н збоку, а потім переходить один раз в кінці.

'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 - використовує свій вхід як вихідний символ. Теоретично це не призведе до правильної форми в 10, оскільки вона має дві цифри, але спроба запуску, яка руйнує мій браузер.

Рубін , 72 байти

Вихід - це список рядків, по одному рядку на рядок.

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.

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 's та 0 ' s.

Спробуйте в Інтернеті! або побачити вихід з H 'і пробілами.

APL (Dyalog Classic) , 14 байт

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

Спробуйте в Інтернеті!

⎕ оцінений вхід n

,⍳⎕⍴3 всі n-кортежі з елементами від 0 1 2

2| мод 2

×/¨∘.≥⍨ формуйте матрицю, порівнюючи кожну пару кортежів a і b - якщо всі елементи a є ≥ відповідними елементами b, це 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))

Спробуйте в Інтернеті!

Зменшує продукт Kronecker, як безсоромний відповідь Луїса Мендо .

Нижній колонтитул добре друкує результат, але це анонімна функція, яка повертає matrixзначення " 1для" Hі "" 0для простору.

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's замість "набивання" 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

Це в основному такий самий підхід, як килим Sierpinski і The Fractal Plus на Anarchy Golf.

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

Спробуйте в Інтернеті!

Функція виводить список рядків.

Пітон 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

Редагувати: -9 байт завдяки @ Potato44.

Perl 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

Вихід - двовимірний масив, що 1представляє Н і 0представляє простір.

Спробуйте в Інтернеті!

Вугілля деревне , 30 29 байт

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

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

H

Друк оригіналу H.

ＦＥＮＸ³ι«

Петля над першими sizeсилами 3.

Ｊ⁰¦⁰

Перемістіть курсор назад до початку. 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 байт

інший підхід: замість того, щоб вкладати та згладжувати результат рекурсивно, він просто проходить через рядки та стовпці та використовує 3-ю петлю, щоб дізнатися, чи потрібно друкувати 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 .

кваліфікована функція, 147 130 байт

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

повертає один рядок Запустити з конфігурацією за замовчуванням (ні php.ini).

Желе , 25 байт

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

Спробуйте в Інтернеті!

Хоча це довше, ніж існуюче подання желе , воно намагається генерувати кожен символ незалежно від координати.

Зокрема, якщо координата (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;}

Запустіть конфігурацію за замовчуванням (ні php.ini) або спробуйте в Інтернеті .

Perl, 64 байти

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

Потрібен -p, вхід береться з stdin. Вихід - H з Hs.

Спробуйте в Інтернеті!

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 .

Спробуйте в Інтернеті

К (нг / к) , 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;
}