ASCII菱形グリッド

27

• m-1行の完全な菱形の数
• n-行数
• s-最小の菱形の側面
• r-入れ子のレベル-「ベースのもの」（グリッドの交点間の偽物）の中にいくつの菱形があるか

例

``````1. Input: 5 3 1 0
Output:

/\/\/\/\/\
\/\/\/\/\/
/\/\/\/\/\
\/\/\/\/\/
/\/\/\/\/\
\/\/\/\/\/

A 5x3 grid of rhombi with side 1, no nesting

2. Input: 3 2 2 0
Output:

/\  /\  /\
/  \/  \/  \
\  /\  /\  /
\/  \/  \/
/\  /\  /\
/  \/  \/  \
\  /\  /\  /
\/  \/  \/

A 3x2 grid of rhombi with side 2, no nesting

3. Input: 5 2 1 2
Output:

///\\\///\\\///\\\///\\\///\\\
///\\\///\\\///\\\///\\\///\\\
///\\\///\\\///\\\///\\\///\\\
\\\///\\\///\\\///\\\///\\\///
\\\///\\\///\\\///\\\///\\\///
\\\///\\\///\\\///\\\///\\\///
///\\\///\\\///\\\///\\\///\\\
///\\\///\\\///\\\///\\\///\\\
///\\\///\\\///\\\///\\\///\\\
\\\///\\\///\\\///\\\///\\\///
\\\///\\\///\\\///\\\///\\\///
\\\///\\\///\\\///\\\///\\\///

A 5x2 grid of rhombi with side 1 (the smallest rhombus), level of nesting is 2

4. Input: 4 2 2 1
Output:

//\\  //\\  //\\  //\\
///\\\///\\\///\\\///\\\
//  \\//  \\//  \\//  \\
\\  //\\  //\\  //\\  //
\\\///\\\///\\\///\\\///
\\//  \\//  \\//  \\//
//\\  //\\  //\\  //\\
///\\\///\\\///\\\///\\\
//  \\//  \\//  \\//  \\
\\  //\\  //\\  //\\  //
\\\///\\\///\\\///\\\///
\\//  \\//  \\//  \\//

A 4x2 grid of rhombi with side 2 with level of nesting 1

5. Input: 4 2 3 3
Output:

////\\\\    ////\\\\    ////\\\\    ////\\\\
/////\\\\\  /////\\\\\  /////\\\\\  /////\\\\\
//////\\\\\\//////\\\\\\//////\\\\\\//////\\\\\\
//////\\\\\\//////\\\\\\//////\\\\\\//////\\\\\\
/////  \\\\\/////  \\\\\/////  \\\\\/////  \\\\\
////    \\\\////    \\\\////    \\\\////    \\\\
\\\\    ////\\\\    ////\\\\    ////\\\\    ////
\\\\\  /////\\\\\  /////\\\\\  /////\\\\\  /////
\\\\\\//////\\\\\\//////\\\\\\//////\\\\\\//////
\\\\\\//////\\\\\\//////\\\\\\//////\\\\\\//////
\\\\\/////  \\\\\/////  \\\\\/////  \\\\\/////
\\\\////    \\\\////    \\\\////    \\\\////
////\\\\    ////\\\\    ////\\\\    ////\\\\
/////\\\\\  /////\\\\\  /////\\\\\  /////\\\\\
//////\\\\\\//////\\\\\\//////\\\\\\//////\\\\\\
//////\\\\\\//////\\\\\\//////\\\\\\//////\\\\\\
/////  \\\\\/////  \\\\\/////  \\\\\/////  \\\\\
////    \\\\////    \\\\////    \\\\////    \\\\
\\\\    ////\\\\    ////\\\\    ////\\\\    ////
\\\\\  /////\\\\\  /////\\\\\  /////\\\\\  /////
\\\\\\//////\\\\\\//////\\\\\\//////\\\\\\//////
\\\\\\//////\\\\\\//////\\\\\\//////\\\\\\//////
\\\\\/////  \\\\\/////  \\\\\/////  \\\\\/////
\\\\////    \\\\////    \\\\////    \\\\////

A 4x2 grid of rhombi with side 3, level of nesting 3
``````

1
ガレンイワノフ

@Luis Mendo-はい、それは明らかに私のタスクに関連しています。
ガレンイワノフ

@Stewie Griffin：codegolf.stackexchange.com/questions/146747/…— 3番目のテストケース
sergiol

5
ああ、どうして枕が恋しいの！
スティーヴィーグリフィン

17

SOGL V0.12、20のバイト

``````ā.I∫e+H╚╬8}:±№╬8╬¡∙*
``````

ここで試してみてください！ 例にあるものと逆の順序（r、s、n、m）で入力を受け取ります。

``````ā                     push an empty array - canvas
.I∫      }           for each in range(input) (1-indexed)
H                 decrement
╚                create a diagonal of that size
╬8              insert into the canvas
:          create a duplicate of the canvas
±№        reverse it vertically and horizotally
╬8      insert that into the canvas
∙   multiply vertically by the next input
*  multiply horizontally by the next input
``````

2
これは驚くべきことです。このようなプログラムを20バイトで圧縮する方法もあります。
エリックアウトゴルファー

1
これは素晴らしいです...驚異的な28バイトで炭を打ち負かしたために私から+1：O
Mr. Xcoder

それ 』は本当に印象的です！
ガレンイワノフ

@ Mr.Xcoder 19バイトになりました。しかし、その後、私のような組み込みコマンドに対してアップだ`∙*`...
ニール

1
チャコールでは、ベクトル化された文字列の繰り返しはかなり短いです。ダイヤモンドの文字列表現を作成できれば、それを繰り返すのに6バイトしかかかりません。残念ながら、それを行うには50バイトかかります。一方、ダイアモンドを描画するのに必要なのは17バイトだけで、SOGLより1つ多いだけですが、キャンバスを乗算するには20バイトかかります。
ニール

8

炭、48 39 37バイト

``````ＵＯ⊕Ｉε\Ｆ⊖ＩζＣ¹¦¹‖ＭL≔⊗⁺ＩζＩεδＦ⊖ＮＣδ⁰Ｆ⊖ＮＣ⁰δ
``````

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

``````ＵＯ⊕Ｉε\
``````

サイズの正方形を描画します`r + 1`。これは、サイズ1のネストされたダイヤモンドの1/4です。

``````Ｆ⊖ＩζＣ¹¦¹
``````

``````‖ＭL
``````

それを反映して、完全にネストされたダイヤモンドになります。

``````≔⊗⁺ＩζＩεδ
``````

このネストされたダイヤモンドのサイズを計算します。

``````Ｆ⊖ＮＣδ⁰
``````

ダイヤモンドを適切な`m - 1`タイミングでコピーします。

``````Ｆ⊖ＮＣ⁰δ
``````

ダイヤモンドを下方向にコピーし`n - 1`ます。

8

パイソン2、160の159 158バイト

ジョナサン・フレッシュのおかげで-1バイト

``````m,n,s,r=input()
l=~-s*' '+'/'*(r-~r)+~-s*' '
for x in range(n*2):print'\n'.join(m*(l[i:i+s+r]+l.replace(*'/\\')[i:i+s+r][::-1])for i in range(r+s))[::1-x%2*2]``````

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

これは、菱形の下部が上部が反転している（`[::-1]`）という事実を使用して、繰り返し処理し、上部または下部のどちらであるかを制御するために`range(n*2)`使用`~x%2*2-1`します。

パターンを生成するために/ネスト`~-s*' '+'/'*(1+r*2)+~-s*' '`が使用され、そのような文字列` /// `が繰り返され、切り刻まれます：

``````   '|  //|/  '
' | ///|  '
'  |/// | '
'  /|//  |'  ``````

`(1+r*2)`できると思います`(r-~r)`
ジョナサンフレッチ

7

ジュリア0.6、190バイト

``````g(n,m,s,r)=(s+=r+1;f(i,j,u=mod(i-j+r,2s),v=mod(j+i+r,2s))=(" \\/")[abs(u-r)<abs(v-r)?1+(u<=2r):1+2(v<=2r)];
for i=1:2(s-1)m println((f(i+(i-1)÷(s-1),s+j+(j-1)÷(s-1))for j=1:2(s-1)n)...)end)``````

これは`i,j`、シンボルが表示されるべきものをすべてのインデックスペアに対して計算する機能的なソリューションです。

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

図

グリッドから始める

``````f(i,j,u=mod(i,2s),v=mod(j,2s))=(" -|*")[1+(u==0)+2(v==0)]
for i=1:2(s-1)m println((f(i-1,j)for j=1:2(s-1)n)...)end

---------*---------*----
|         |
|         |
|         |
|         |
|         |
|         |
|         |
|         |
|         |
---------*---------*----
|         |
|         |
|         |
|         |
|         |    ``````

`r > 0` より太い線を意味する

``````f(i,j,u=mod(i+r,2s),v=mod(j+r,2s))=(" -|*")[1+(u<=2r)+2(v<=2r)]
for i=1:2(s-1)m println((f(i,j)for j=1:2(s-1)n)...)end

**-----*****-----*****--
**-----*****-----*****--
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||
**-----*****-----*****--
**-----*****-----*****--
**-----*****-----*****--
**-----*****-----*****--
**-----*****-----*****--
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||
||     |||||     ||||| ``````

``````f(i,j,u=mod(i+r,2s),v=mod(j+r,2s))=(" -|")[abs(u-r)<abs(v-r)?1+(u<=2r):1+2(v<=2r)]
for i=1:2(s-1)m println((f(i,j)for j=1:2(s-1)n)...)end

|-------|||-------|||---
||-----|||||-----|||||--
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||
||-----|||||-----|||||--
|-------|||-------|||---
---------|---------|----
|-------|||-------|||---
||-----|||||-----|||||--
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||
||     |||||     |||||  ``````

``````f(i,j,u=mod(i+r,2s),v=mod(j+r,2s))=(" -|")[abs(u-r)<abs(v-r)?1+(u<=2r):1+2(v<=2r)]
for i=1:2(s-1)m println((f(i+(i-1)÷(s-1),s+j+(j-1)÷(s-1))for j=1:2(s-1)n)...)end

---||------||------||---
--||||----||||----||||--
||||    ||||    ||||
||||    ||||    ||||
||||    ||||    ||||
||||    ||||    ||||
--||||----||||----||||--
---||------||------||---
---||------||------||---
--||||----||||----||||--
||||    ||||    ||||
||||    ||||    ||||
||||    ||||    ||||
||||    ||||    ||||
--||||----||||----||||--
---||------||------||---``````

``````f(i,j,u=mod(i-j+r,2s),v=mod(j+i+r,2s))=(" \\/")[abs(u-r)<abs(v-r)?1+(u<=2r):1+2(v<=2r)]
for i=1:2(s-1)m println((f(i+(i-1)÷(s-1),s+j+(j-1)÷(s-1))for j=1:2(s-1)n)...)end

///\\\  ///\\\  ///\\\
////\\\\////\\\\////\\\\
////\\\\////\\\\////\\\\
///  \\\///  \\\///  \\\
\\\  ///\\\  ///\\\  ///
\\\\////\\\\////\\\\////
\\\\////\\\\////\\\\////
\\\///  \\\///  \\\///
///\\\  ///\\\  ///\\\
////\\\\////\\\\////\\\\
////\\\\////\\\\////\\\\
///  \\\///  \\\///  \\\
\\\  ///\\\  ///\\\  ///
\\\\////\\\\////\\\\////
\\\\////\\\\////\\\\////
\\\///  \\\///  \\\/// ``````

3

JavaScript（ES6）、154バイト

``````f=
(m,n,s,r)=>[...Array((s+=r)*n*2)].map((_,i)=>[...Array(s*m*2)].map((_,j)=>i/s&1^j/s&1?`\\ `[g(j%s)]:`/ `[g(s-1-j%s)],g=j=>i%s-j>r|j-i%s>r).join``).join`
```````
``````<div oninput=o.textContent=f(+m.value,+n.value,+s.value,+r.value)>
m: <input type=number min=0 id=m><br>
n: <input type=number min=0 id=n><br>
s: <input type=number min=0 id=s><br>
r: <input type=number min=0 id=r></div>
<pre id=o>``````

2

CJam、44

``````q~:R+,_ff{-zR>}{_W%:~\+"\ /"f=}%_W%Wf%+*f*N*
``````

オンラインで試す

``````q~           read and evaluate the input
:R+          save the last number in variable R, then add the last 2 numbers (s+r)
,_           make an array [0 1 … s+r-1] and duplicate it
ff{…}        make a matrix, calculating for each (x,y) pair from the 2 arrays:
-z         abs(x-y)
R>         compared with R (1 if greater, 0 if not)
{…}%         transform each row of the matrix:
_W%        duplicate and reverse it
:~         bitwise-NOT each element (0 → -1, 1 → -2)
\+         prepend to the original row
"\ /"f=    replace numbers with characters from this string (by index):
0 → '\'; 1, -2 → ' '; -1 → '/'
this generates the "/\" part
_W%          duplicate the matrix and reverse the rows
Wf%+         reverse each row, then append (by rows) to the original matrix
*            repeat the matrix (by rows) n times
f*           repeat each row m times
N*           join the rows with newlines
``````

2

C＃（.NET Core）、167バイト

``(c,r,s,n)=>{int w=s+n,i=0,j;var g="";for(;i<r*2*w;i++,g+="\n")for(j=0;j<c*2*w;){int y=i%w,q=(j/w+i/w+1)%2,p=~-w*q+j++%w*(1-2*q);g+=p>y+n|p<y-n?' ':"\\/"[q];}return g;}``

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

デゴルフド

``````(c,r,s,n)=>{
int w=s+n, // rhombus quadrant width, and height
i=0, // string row
j; // string column

var g="";

// go through every character row and column
for(; i < r*2*w; i++, g += "\n")
for(j = 0; j < c*2*w;)
{
int y = i % w, // vertical position in the quadrant
q = ( j / w + i / w + 1) % 2, // Get the rhombus quadrant as a 0 or 1
p = ~-w * q + j++ % w * (1-2*q); // horizontal position in quadrant. the value is either ascending or descending depending on the quadrant

// select which character to use at this [i,j] position
g += p > y + n | p < y - n ? ' ' : "\\/"[q];
}

return g;
}``````

1

パイソン2、201の 189バイト

``def f(m,n,s,r):Z=range(s+r);R=[r-~min(i,s+~i+r,min(s-1,r))for i in Z];L=[m*(' '*(s+~i)+'/'*R[i]+'  '*(i-r)+'\\'*R[i]+' '*(s+~i))for i in Z];print'\n'.join((L+[l[s+r:]+l[:s+r]for l in L])*n)``

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

``````Top:       /\/\/\
Bottom:     /\/\/\``````

Jonathan Frechのおかげで22バイト節約

`s-i-1``s+~i`2バイトを節約できます。、別のものを保存`r+1+min(...`できます`r-~min(...`。1バイトを節約`L=[(...)*m for`でき`L=[m*(...)for`ます。
ジョナサンフレッチ

`L+=[...];print'\n'.join(L*n)``print'\n'.join((L+[...])*n)`別のバイトを保存して、196バイトにすることができます
ジョナサンフレッチ

195バイト、1にも置き換えられた場合`s+r-i-1``s+~i+r`
ジョナサンフレッチ

ジョナサンフレッチ

1

Perl 5、159 + 3（-anl）バイト

``````(\$m,\$n,\$s,\$r)=@F;\$s=\$"x(\$s+\$r-1);\$_="\$s/\\\$s"x\$m;\$n*=2;{\$t=\$_;map\$t=~s, ?(\S) ?,\$1x\$&=~y///c,ge,1..\$r;print\$t;redo if s, /,/ ,g&&s,\\ , \\,g||y,/\\,\\/,&&--\$n}
``````

オンラインで試す