我的世界城堡分形

18

由PPCG同伴的YouTube视频所致...

您面临的挑战是使用ASCII艺术画出Andesite和Diorite的Minecraft城堡墙。墙的形状是Cantor Set。作为参考，通过重复以下N次来创建Cantor集：

  • 当前步骤的三倍
  • 用空格替换中间的一个
  • 在其下方添加整行

这将为前四个步骤创建以下内容：

*

* *
***

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

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

但是，您的挑战并不是那么简单。您会看到，在康托集变得非常大之后，反复查看相同的角色变得无聊。因此，我们将通过覆盖一系列交替的星号*和磅符号来更改此状态#。您应该水平每隔三个字符，垂直每行交替。（当然，空格保持不变）例如，第二个示例将变为：

* *
###

第三个示例将变为：

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

为了完整起见，下面是示例四和示例五：

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

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

再举一个巨大的例子，第六次迭代：

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

挑战

您必须编写一个完整的程序或函数，该程序或函数接受一个正整数作为输入，并输出此Minecraft城堡分形的第N代。您可以通过任何合理的方法进行输入和输出，而不必担心无效输入（例如小于1的数字，浮点数，非数字等）。

最短的答案，以字节为单位获胜！

code-golf  string  ascii-art 
— DJMcMayhem
source
1
— DJMcMayhem

Answers:

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
— 英里
source
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`

其中\n代表字面换行符。ES6版本为141个字节：

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>
展开摘要

— 尼尔
source
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

这是这里的代码，然后针对这一挑战进行了编辑。

稍后将发布说明。

另外，顺便说一句，两个空格是制表符。

编辑1：由于@DJMcMayhem，节省了4个字节。

编辑2：感谢@daHugLenny，节省了2个字节。

— 基督教
source
1
由于是Python 2，您不能删除其中的括号exec("s+=len(s)*' '+s;"*(n-i))吗？
— acrolith
@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}

基于jsvnm的标准Cantor set golf的解决方案。

-12字节感谢乔丹。

— m-chrzan
source
g=->{T.tr"*#","#*"}
— 约旦
另外，s.map!{...}代替s=s.map{...};s。
— 乔丹
@乔丹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
— 英里
source
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);
— 提图斯
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.