Minecraft城フラクタル


18

仲間のPPCGユーザーからのyoutubeビデオに触発されました...

あなたが挑戦するのは、ASCIIアートを使用して、安山岩と閃緑岩のMinecraft城壁を描くことです。壁のカンターセットです。参照用に、カンターセットは、次のN回繰り返して作成されます。

  • 現在のステップを3倍に
  • 真ん中のスペースを空白に置き換えます
  • その下に完全な行を追加します

これにより、最初の4つのステップで次が作成されます。

*

* *
***

* *   * *
***   ***
*********

* *   * *         * *   * *
***   ***         ***   ***
*********         *********
***************************

ただし、あなたの挑戦はそれほど単純ではありません。ご覧のとおり、カンターセットが非常に大きくなった後、同じキャラクターを何度も繰り返し見るのは退屈になります。そのため、アスタリスク*とポンド記号を交互に重ねて表示することで、これを変更します#。3文字ごとに水平方向に、すべての行を垂直方向に交互に配置する必要があります。(もちろんスペースは同じままにします)たとえば、2番目の例は次のようになります。

* *
###

3番目の例は次のようになります。

* *   * *
###   ###
***###***

完全を期すために、ここに例4と5を示します。

#4
* *   * *         * *   * *
###   ###         ###   ###
***###***         ***###***
###***###***###***###***###

#5
* *   * *         * *   * *                           * *   * *         * *   * *
###   ###         ###   ###                           ###   ###         ###   ###
***###***         ***###***                           ***###***         ***###***
###***###***###***###***###                           ###***###***###***###***###
***###***###***###***###***###***###***###***###***###***###***###***###***###***

そして、1 メガ例、第6の繰り返し:

* *   * *         * *   * *                           * *   * *         * *   * *                                                                                 * *   * *         * *   * *                           * *   * *         * *   * * 
###   ###         ###   ###                           ###   ###         ###   ###                                                                                 ###   ###         ###   ###                           ###   ###         ###   ###
***###***         ***###***                           ***###***         ***###***                                                                                 ***###***         ***###***                           ***###***         ***###***
###***###***###***###***###                           ###***###***###***###***###                                                                                 ###***###***###***###***###                           ###***###***###***###***###
***###***###***###***###***###***###***###***###***###***###***###***###***###***                                                                                 ***###***###***###***###***###***###***###***###***###***###***###***###***###***
###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###***###

チャレンジ

入力に正の整数を受け入れ、このMinecraftの城のフラクタルのN番目の世代を出力する完全なプログラムまたは関数を作成する必要があります。妥当な方法で入出力を行うことができ、無効な入力(1未満の数値、浮動小数点数、非数値など)を心配する必要はありません。

バイト単位で測定した最短回答が勝ちです!


回答:


5

ゼリー43 36 35バイト

ḶṚ3*µ5B¤xЀṁ€Ṁ×\Ṛ©1,‘xS$¤ṁ×®ị“*# ”Y

ほんの始まりですが、これはもっと短くなると確信しています。

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

* n > 5の場合、ブラウザは出力をラップする可能性がありますが、非ラッピングエディタにコピーアンドペーストすると、適切な出力が表示されます。

説明

ḶṚ3*µ5B¤xЀṁ€Ṁ×\Ṛ©1,‘xS$¤ṁ×®ị“*# ”Y  Input: integer n
Ḷ                                    Create the range [0, n)
 Ṛ                                   Reverse it
  3*                                 Raise 3 to the power of each
    µ                                Begin a new monadic chain on the powers of 3
     5B¤                             Nilad. Get the binary digits of 5 = [1, 0, 1]
        xЀ                          Duplicate each of [1, 0, 1] to a power of 3 times
             Ṁ                       Get the maximum of the powers of 3
           ṁ€                        Reshape each to a length of that value
              ×\                     Cumulative products
                Ṛ©                   Reverse and save the result
                  1,‘xS$¤            Niladic chain.
                  1                    Start with 1
                    ‘                  Increment it
                   ,                   Pair them to get [1, 2]
                       $               Operate on [1, 2]
                      S                  Sum it to get 3
                     x                   Repeat each 3 times to get [1, 1, 1, 2, 2, 2]
                         ṁ           Reshape that to the saved table
                          ×®         Multiply elementwise with the saved table
                            ị“*# ”   Use each to as an index to select from "*# "
                                  Y  Join using newlines
                                     Return and print implicitly

3

JavaScriptの(ES7)、132の 125バイト

n=>[...Array(n)].map((_,i)=>[...Array(3**~-n)].map((_,j)=>/1/.test((j/3**i|0).toString(3))?" ":`*#`[j/3+i&1]).join``).join`\n`

where \nはリテラルの改行文字を表します。141バイトのES6バージョン:

f=
n=>[...Array(n)].map((_,i)=>[...Array(Math.pow(3,n-1))].map((_,j)=>/1/.test((j*3).toString(3).slice(0,~i))?" ":`*#`[j/3+i&1]).join``).join`
`
;
<input type=number min=1 oninput=o.textContent=f(+this.value)><pre id=o>


2

Python 2、142 138 136バイト

r=range
def f(n):
 for i in r(n+1):
  s="";d=i%2<1
  for k in r(3**i):s+="#*"[(6+d-1+k*(d*2-1))%6<3]
  exec"s+=len(s)*' '+s;"*(n-i);print s

これはここからのコード、このチャレンジ用に編集されています。

後で説明を投稿します。

また、2つのスペースはタブです。

編集1:@DJMcMayhemのおかげで4バイトが保存されました。

編集2:@daHugLennyのおかげで2バイト節約されました。


1
Python 2なので、括弧を削除できませんexec("s+=len(s)*' '+s;"*(n-i))か?
アクロリス

@daHugLennyああそう、ありがとう!(すぐに返信しないで申し訳ありません)
clismique

1

ルビー、 115 103 102バイト

->n{g=->{T.tr"*#","#*"}
*s=?*
(n-1).times{|i|T=s[-1]
s=s.map{|l|l+' '*3**i+l}+[i<1??#*3:g[]+T+g[]]}
s}

標準のCantorセットゴルフに対するjsvnmのソリューションに基づきます。

ヨルダンのおかげで-12バイト。


g=->{T.tr"*#","#*"}
ヨルダン

また、のs.map!{...}代わりにs=s.map{...};s
ヨルダン

@Jordan s.map!を+に変更する必要があり、<<同じ長さになります。sいずれにしても、最後にまだ必要だと思います-マップは.timesループ内にあります。
m-chrzan

ああ、そうだね。
ヨルダン

1

J、47 45バイト

' *#'{~3(]*$@]$1 2#~[)(,:1)1&(,~],.0&*,.])~<:

Cantorセットチャレンジに対する私のソリューションに基づきます。

使用法

   f =: ' *#'{~3(]*$@]$1 2#~[)(,:1)1&(,~],.0&*,.])~<:
   f 1
*
   f 2
* *
###
   f 3
* *   * *
###   ###
***###***

説明

' *#'{~3(]*$@]$1 2#~[)(,:1)1&(,~],.0&*,.])~<:  Input: n
                                           <:  Decrement n
                      (,:1)                    A constant [1]
                           1&(           )~    Repeating n-1 times on x starting
                                               with x = [1]
                                        ]        Identity function, gets x
                                   0&*           Multiply x elementwise by 0
                                      ,.         Join them together by rows
                                ]                Get x
                                 ,.              Join by rows
                           1  ,~                 Append a row of 1's and return
       3                                       The constant 3
        (                 )                    Operate on 3 and the result
                    [                          Get LHS = 3
               1 2                             The constant [1, 2]
                  #~                           Duplicate each 3 times
                                               Forms [1, 1, 1, 2, 2, 2]
           $@]                                 Get the shape of the result
              $                                Shape the list of [1, 2] to
                                               the shape of the result
         ]                                     Get the result
          *                                    Multiply elementwise between the
                                               result and the reshaped [1, 2]
' *#'                                        The constant string ' *#'
     {~                                       Select from it using the result
                                             as indices and return

1

PHP、159バイト

for($r=($n=--$argv[1])?["* *","###"]:["*"];++$i<$n;$r[]=$a.$b.$a){$a=strtr($b=end($r),"#*","*#");foreach($r as&$s)$s.=str_pad("",3**$i).$s;}echo join("\n",$r);

壊す

for(
    $r=($n=--$argv[1])  // pre-decrease argument, initialize result
    ?["* *","###"]      // shorter than handling the special iteration 2 in the loop
    :["*"]              // iteration 1
    ;
    ++$i<$n             // further iterations:
    ;
    $r[]=$a.$b.$a       // 3. concatenate $a, $b, $a and add to result
)
{
                        // 1. save previous last line to $b, swap `*` with `#` to $a
    $a=strtr($b=end($r),"#*","*#"); 
                        // 2. duplicate all lines with spaces of the same length inbetween
    foreach($r as&$s)$s.=str_pad("",3**$i).$s;  # strlen($s)==3**$i
}
// output
echo join("\n",$r);
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.