六角形の三角形！

20

あなたの仕事：辺の長さの六角形の三角形を作成します。nここnで、正の整数または0です。

最初に、六角形を定義させてください：

 / \
|   |
 \ /

（素晴らしいASCIIアートですよね？）

六角形は、側面を共有することで互いにリンクできます。

 / \ / \
|   |   |
 \ / \ /

   / \  
  |   |
 / \ /
|   |
 \ /

六角形の三角形は次のとおりです。

   / \
  |   |
 / \ / \
|   |   |
 \ / \ /

その六角形の三角形の辺の長さは2であり、1つの辺を作るには2つの六角形が必要です。辺の長さが1の六角形の三角形は単一の六角形であり、辺の長さが0の六角形は空です。

より正式には、六角形の三角形は、六角形が側面でリンクされた三角形です。上部の六角形は、下部の2つの側面でその下の2つにリンクしています。左下の三角形はその右および右上の三角形にリンクし、右下の三角形はその左および左上の三角形にリンクします。角の間に六角形があり、反対側で接続されており、その数はn-2です。三角形は塗りつぶされていません。

その他の例：

Side length 3:
     / \
    |   |
   / \ / \
  |   |   |
 / \ / \ / \
|   |   |   |
 \ / \ / \ /

Side length 4:
       / \
      |   |
     / \ / \
    |   |   |
   / \ / \ / \
  |   |   |   |
 / \ / \ / \ / \
|   |   |   |   |
 \ / \ / \ / \ /
(This triangle isn't really filled, the borders make it look like there is a hexagon in the middle, but there is not.)

Side length 5:
         / \
        |   |
       / \ / \
      |   |   |
     / \ / \ / \
    |   |   |   |
   / \ /     \ / \
  |   |       |   |
 / \ / \ / \ / \ / \
|   |   |   |   |   |
 \ / \ / \ / \ / \ /

Side length 6:
           / \
          |   |
         / \ / \
        |   |   |
       / \ / \ / \
      |   |   |   |
     / \ /     \ / \
    |   |       |   |
   / \ /         \ / \
  |   |           |   |
 / \ / \ / \ / \ / \ / \
|   |   |   |   |   |   |
 \ / \ / \ / \ / \ / \ /
code-golf  ascii-art  geometry  hexagonal-grid 
— 同志のスパークルポニー
ソース
22
これに六角形の答えがない場合、@ MartinEnderへのすべての信頼を失います。
— 2
@Soyoucanreplytomeincommentsここでユーザーをフォローできれば、リストに載っているとだけ言っておきましょう。
— phyrfox
1
@phyrfox できます。
— デニス
2
私は炭で短い答えを見ることを期待しています。自分でやりますが、最初にそれを学ぶ必要があり、代わりに映画を見たいと思います、ごめんなさい。
— ニール
3
@Neilは、まったく新しいプログラミング言語を学ばなくても許されています。しかし、それが最初の警告です！
— コイナーリンガーアーイング

回答:

11

炭、62 43 39バイト

ＮβＦ³«Ｆ⁻β‹ι²« / \¶|   |¶ \ /Ｍײι↑¿⁻¹ιＭ⁶←

オンラインでお試しください！編集：@ASCIIのみのおかげで、いくつかのバイトを節約しました（正確にどれだけの量を確認しましたが、別の6 10バイトも保存しましたが、バグ修正に4バイトを費やす必要がありました）。ネストされたループを使用するようになりました。

— ニール
ソース
45バイト：（Ａ / \¶| |¶ \ /αＮβＦβ«α←←»Ｆβ«α↖↖Ｍ⁶←»Ｆβ«αＭ⁴↑←←ところで»、最後に必要な炭は自動補完されます）
— ASCIIのみ
@ASCIIのみ
— ニール
コマンドはウィキにあり、ここで、基本的にはAssign(hexagon_with_space_to_left, a);InputNumber(b);for(b){Print(a);Move(:Left);Move(:Left);}for(b){Print(a);Move(:UpLeft);Move(:UpLeft);Move(6, :Left);}for(b){Print(a);Move(4, :Up);Move(:Left);Move(:Left);}、ループの各片側を描く
— ASCIIのみ
だから、かなり多くのあなたは何をしていたが、変数として保存された文字列で
— ASCIIのみ
@ASCIIのみ描画の方向を逆にすることで、さらに2バイトを節約できました。（また、六角形を描く最良の方法は文字列リテラルであることに少しがっかりしていますが、少なくともこれにより簡単に繰り返すことができます。）
— ニール
7

Pythonの2、184の 177 174 164バイト

n=input();p='|   |';e=' \\ /'
for i in range(n):k=' '*(4*i-5);w='  '*~(i-n);print w+[' / \\'*-~i+'\n'+w+p[:4]*i+p,' /'+e+k[3:]+e+' \\\n'+w+p+k+p][2<i<n-1]
print e*n

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

ØrjanJohansenのおかげで-7バイト

— 数学中毒
ソース
一番|上の3行と一番下の六角形行の右端のs がありません。
— Ørjanヨハンセン
p[:4]*(i+2)代わりにp[:4]*(i+1)それを修正するようだ。
— Ørjanヨハンセン
b1つの場所でしか使用していないため、これを~トリックと組み合わせるw=' '*2*~(i-n)と7バイト短くなります。
— Ørjanヨハンセン
@ØrjanJohansenおかげで、コードは多くのリファクタリングを経て、それらを変更するのを忘れていました
— 数学ジャンキー
6

JavaScript（ES6）、243バイト

f=n=>(n=n*2-2,a=[...Array(n+3)].map(_=>Array(n*2+5).fill` `),g=(y,x)=>(a[y+1][x]=a[y+1][x+4]=`|`,a[y][x+1]=a[y+2][x+3]=`/`,a[y][x+3]=a[y+2][x+1]=`\\`),[...Array(n+!n)].map((_,i)=>i%2||(g(n,i*2),g(i,i=n-i),g(i,n+i))),a.map(a=>a.join``).join`
`)
<input type=number oninput=o.textContent=f(this.value)><pre id=o>
スニペットを展開

— ニール
ソース
4

JavaScript（ES6）、133 129 128 126バイト

2つのforループを使用して、文字ごとに出力文字を作成します。

n=>{for(s='',y=n*2,n*=4;~y--;s+=`
`)for(x=n;~x--;)s+=' \\ /|'[x>y-2&x<n-y&(k=x+y&3,x>n-y-6|x<y+4|y<2)?y&1?k:k+1&4:0];return s}

使い方

外側のループでは、yはn * 2-1から-1に繰り返します。内側のループでは、xはn * 4-1から-1に繰り返します。我々セットK =（X + Y）＆3。これは、六角形の生成に使用される基本パターンです。

以下は、n = 4の場合の結果のグリッドです。

     15 14 13 12 11 10  9  8  7  6  5  4  3  2  1  0 -1
   +---------------------------------------------------
 7 |  2  1  0  3  2  1  0  3  2  1  0  3  2  1  0  3  2
 6 |  1  0  3  2  1  0  3  2  1  0  3  2  1  0  3  2  1
 5 |  0  3  2  1  0  3  2  1  0  3  2  1  0  3  2  1  0
 4 |  3  2  1  0  3  2  1  0  3  2  1  0  3  2  1  0  3
 3 |  2  1  0  3  2  1  0  3  2  1  0  3  2  1  0  3  2
 2 |  1  0  3  2  1  0  3  2  1  0  3  2  1  0  3  2  1
 1 |  0  3  2  1  0  3  2  1  0  3  2  1  0  3  2  1  0
 0 |  3  2  1  0  3  2  1  0  3  2  1  0  3  2  1  0  3
-1 |  2  1  0  3  2  1  0  3  2  1  0  3  2  1  0  3  2

偶数行では、k = 3の場合、セルはパイプ文字で埋められ、それ以外の場合はスペースで埋められます。パイプは参照文字列の5番目の文字な" \ /|"ので、正しいインデックスは（k + 1）＆4で与えられます。

奇数行では、各セルは参照文字列の対応する文字で直接埋められます。

  • k = 0 →スペース
  • k = 1 → "\"
  • k = 2 →スペース
  • k = 3 → "/"

以下は更新された例です（スペースはドットに置き換えられます）：

     15 14 13 12 11 10  9  8  7  6  5  4  3  2  1  0 -1
   +---------------------------------------------------
 7 |  .  \  .  /  .  \  .  /  .  \  .  /  .  \  .  /  .
 6 |  .  .  |  .  .  .  |  .  .  .  |  .  .  .  |  .  .
 5 |  .  /  .  \  .  /  .  \  .  /  .  \  .  /  .  \  .
 4 |  |  .  .  .  |  .  .  .  |  .  .  .  |  .  .  .  |
 3 |  .  \  .  /  .  \  .  /  .  \  .  /  .  \  .  /  .
 2 |  .  .  |  .  .  .  |  .  .  .  |  .  .  .  |  .  .
 1 |  .  /  .  \  .  /  .  \  .  /  .  \  .  /  .  \  .
 0 |  |  .  .  .  |  .  .  .  |  .  .  .  |  .  .  .  |
-1 |  .  \  .  /  .  \  .  /  .  \  .  /  .  \  .  /  .

次の式では、N = n * 4を定義します、読みやすさの（ただし、コードでは同じ変数が使用されています）。

三角形の形状は、次のテストにより取得されます。

  • x> y-2 →右隅を削除します
  • AND x <N-y →左隅を削除します

そして、内部部分はテストによって削除されます：

  • x> N-y-6 →左端のみを保持
  • またはx <y + 4 →右端のみを保持
  • またはy <2 →下端のみを保持

デモ

コードスニペットを表示

— アーノールド
ソース
DOESの[x>y-2&x<n-y&(x>n-y-6|x<y+4|y<2)&&y&1?x+y&3:x-~y&4]作品？
— ニール
@Neilうーん、そうは思いません。三項式の周りに括弧が必要で、これ(x+y+1)&4はとは異なります(((x+y)&3)+1)&4。
— アーナルド
いいえ、もちろんそうではありません。私は何を考えていた
— ニール
3

ゼリー、 62  61 バイト

現在6つのシックスが含まれています。

_‘<×⁸>6
Rµ‘⁾| ẋ⁾/\ẋ⁸¤ż;/K€µ⁶ðMṀ_6r6ẋð¦"Jç¥
ḤḶUẋ@€⁶;"ǵ-ịṙ6ṭ⁸Y

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

どうやって？

_‘<×⁸>6 - Link 1, should we eat the praline? row number, triangle size
_       - row number minus triangle size
 ‘      - plus one
  <     - less than triangle size? (1 if one of the last rows else 0)
   ×⁸   - multiply by row number   (row number or 0)
     >6 - greater than 6?          (row number if between row 6 and last two rows)

Rµ‘⁾| ẋ⁾/\ẋ⁸¤ż;/K€µ⁶ðMṀ_6r6ẋð¦"Jç¥ - Link 2, build a solid triangle: triangle size
                                              (except the very bottom row)
R                                  - range: [1,2,...,size]
 µ                                 - monadic chain separation, call that r
  ‘                                - increment: [2,3,...,size+1]
   ⁾| <space                       - literal "| "
      ẋ                            - repeat: ["| | ","| | | ",...]
            ¤                      - nilad followed by link(s) as a nilad:
       ⁾/\                         -   literal "/\"
           ⁸                       -   link's left argument, r
          ẋ                        -   repeat (vectorises): ["/\","/\/\",...]
             ż                     - zip the two repeated lists together: [["/\","| | "],["/\/\","| | | "],...]
              ;/                   - reduce by concatenation: ["/\","| | ","/\/\","| | | ",...]
                K€                 - join with spaces for €ach: ["/ \","|   |  ","/ \ / \","|   |   |  ",...]
                  µ                - monadic chain separation call that s
                                 ¥ - last two links a a dyad:
                               J   -   range(length(s))  
                                ç  -   call the last (1) link as a dyad (left = result of J, right = size)
                              "    - zip with: (call those d)
                    ð       ð¦     -   apply to indexes:
                   ⁶               -   a literal space character
                     M             -     indexes of maximal elements in an element of s (a row)
                      Ṁ            -     maximum (this is the rightmost non-space index, MṀ working like length ignoring trailing spaces)
                       _6          -     subtract 6  (6 indexes back from the right)
                         r6        -     range from there to 6, i.e [l-6,l-7,...,6]
                           ẋ       -     repeat d times (1 or 0), thus applying to the middle rows but not the bottom and top ones.

ḤḶUẋ@€⁶;"ǵ-ịṙ6ṭ⁸Y - Main link: triangle size
Ḥ                  - double(size)
 Ḷ                 - unlength: [0,1,2,...,double(size)-1]
  U                - upend: [double(size)-1,...,2,1,0]
      ⁶            - literal space character
   ẋ@€             - repeat for €ach with reversed arguments ["  ...  ",...,"  "," ",""]
         Ç         - call the last link (2) as a monad(size)
       ;"          - zip with concatenation (zips the leading spaces with the solid triangle body)
          µ        - monadic chain separation, call that t
           -ị      - index -1 (last but one row of t)
             ṙ6    - rotate left by 6 (any number congruent to 2 mod 4 would do)
               ṭ⁸  - tack to t (add this new row on)
                 Y - join all the rows by new lines
                   - implicit print
— ジョナサン・アラン
ソース
>説明に欠落があります（<space）
— ローマングラフ
@RomanGräfありがとう、説明を編集しました！「ẋ説明のスペースの下がずれている」以上の意味がある場合は、お知らせください。
— ジョナサンアラン
1

Mathematica、155バイト

""<>Table[If[i+j<d||i-j>d+1||i+j>d+5&&i-j<d-3&&j<d-1," ",Switch[Mod[i+d+{j,-j},4],{1,3},"/",{3,1},"\\",{1,1},"|",_," "]],{j,(d=2#)+1},{i,4#+1}]~Riffle~"\n"&

\n改行で置き換えます。

より読みやすい：

"" <> Table[
    If[i+j < d || i-j > d+1 || 
      i+j > d+5 && i-j < d-3 && j < d-1, " ", 
     Switch[Mod[i+d+{j,-j}, 4], {1, 3}, "/", {3, 1}, 
      "\\", {1, 1}, "|", _, " "]], {j, (d=2#)+1}, {i, 4#+1}]~
   Riffle~"\n" &

インデックス付け文字の配列、作成I 1から4までのN + 1水平方向及びJ 1〜2 N上下+ 1。まず、Switch[Mod[i+d+{j,-j},4],{1,3},"/",{3,1},"\\",{1,1},"|",_," "]六角形のグリッドを塗りつぶします。

 \ / \ / \ / \ / 
  |   |   |   |  
 / \ / \ / \ / \ 
|   |   |   |   |
 \ / \ / \ / \ / 
  |   |   |   |  
 / \ / \ / \ / \ 
|   |   |   |   |
 \ / \ / \ / \ /

次にIf[i+j<d||i-j>d+1||i+j>d+5&&i-j<d-3&&j<d-1," ",...]、これを" "塗りつぶされていない三角形の外側に置き換えます。

— 木ではない
ソース
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.