Вступление

Серпинский Arrowhead Curve кривой, это предел Треугольник Серпинский.

Сначала начинается так:

 _
/ \

Затем каждая строка заменяется повернутой версией первой:

  _
 / \
 \ /
_/ \_

Следующий:

     _
    / \
    \ /
   _/ \_
  /     \
  \_   _/
 _  \ /  _
/ \_/ \_/ \

Твое задание

Учитывая число n , выведите n-ю итерацию кривой стрелки Серпинского.

Вы можете выбрать 0- или 1-индекс, но, пожалуйста, укажите в своем ответе.

Вы можете создать изображение или использовать Ascii Art в формате, который у меня есть выше.

Вы не можете использовать встроенные модули для создания этой кривой.

Помните, это код-гольф , поэтому выигрывает код с наименьшим количеством байтов.

Октава, 240 236 221 байт

Это сделано с использованием той же идеи, что и здесь, но мне пришлось изменить ее, чтобы она соответствовала кривой стрелки Серпинского.

m=input(0);g=2*pi/6;u=cos(g);v=sin(g);A=[1,0];B=[u,v];C=[-u,v];D=-A;E=-B;F=-C;for k=1:m;f=[E;F;A];b=[A;B;C];A=[B;A;F];d=[C;D;E];C=[D;C;B];E=[F;E;D];B=b;D=d;F=f;end;A=[0,0;cumsum(A)];plot(A(:,1),A(:,2));axis off;axis equal

Haskell + диаграммы, 176 байт

import Diagrams.Prelude
import Diagrams.Backend.SVG
g n=renderSVG"a"(mkWidth 99).strokeT.a n
a 0=hrule 1
a n|b<-a(n-1)=b%6<>b<>b%(-6);a%n=rotateBy(1/n).reflectY$a::Trail V2 Double

Делает SVG-файл с прозрачным фоном под названием «а».

g 0выводит горизонтальную линию, g 1есть /¯\.

MSWLogo (версия 6.5b), 102 байта

Принимает две функции shapeL, shapeRприведенные здесь, и объединяет их, добавляя дополнительный аргумент :a, который вызывает противоположную функцию при отрицании.

to s :n :a :l
if :n=0[fd :l stop]
rt :a
s :n-1(-:a):l
lt :a
s :n-1 :a :l
lt :a
s :n-1(-:a):l
rt :a
end

sОпределяется функция , которая принимает количество итераций :n( начиная с 1), угол :a, длину :l. Это рекурсивно, вызывая более низкую итерацию с углом :aв двух случаях, чтобы получить правильную ориентацию.

• rt :a, lt :aповерните черепаху (треугольник, чей путь прослежен) вправо, влево на :aградусы.
• fd :lдвигает черепаху вперед по :lшагам.

Функция должна вызываться :aравной 60.

Здесь, repeatпо сути, цикл FOR, со встроенным счетчиком repcount. puи pdозначают «перо вверх» и «перо вниз», которые не позволяют черепахе рисовать, когда ее положение задается с помощью setxy.

Чертежи каждой итерации были вызваны с длиной, :lравной power 2 (7-repcount), которая уменьшается в геометрической прогрессии; это связано с тем, что в определении используется то же самое :lна рекурсивном шаге, поэтому при фиксированном :lобщий размер вывода будет увеличиваться экспоненциально :n.

Python 2, 124 байта

Основано на коде в статье в Википедии.

from turtle import*
def c(o,a):
 if o:o-=1;c(o,-a);lt(a);c(o,a);lt(a);c(o,-a)
 else:fd(9)
n=input()
if n%2==0:lt(60)
c(n,60)

Порядок 0 прямая.

Mathematica / Wolfram Language 73 байта

s=1;Region@Line@AnglePath[Nest[Join@@({#,s=-s,s}&/@#)&,{#~Mod~2},#]Pi/3]&

Простое объяснение:
AnglePath [{θ1, θ2, θ3,…}] дает список 2D координат, соответствующих траектории, которая начинается в {0,0}, затем проходит серию шагов единичной длины при последовательных относительных углах θi.

п = 1

Graphics@Line@AnglePath[60°{1,-1,-1}]

п = 2

Graphics@Line@AnglePath[60°{0,1,1, -1,-1,-1, -1,1,1}]

п = 3

Graphics@Line@AnglePath[60°{1,-1,-1, 1,1,1, 1,-1,-1, -1,1,1, -1,-1,-1, -1,1,1, -1,-1,-1, 1,1,1, 1,-1,-1}]

Mathematica, 62 байта

Graphics@Line@AnglePath[Pi/3Nest[Flatten@{-#,1,#,1,-#}&,0,#]]&

JavaScript (ES6), 180 байт

f=(n,d=0,r=n=>` `.repeat(n))=>n?f(--n,d=3-d%3).map(s=>r([l=s.length/2,0,1,~n&1][d]+l)+s+r([,1,0,~n&1][d]+l)).concat(f(n,d+1).map(s=>s+r(!(d%3))+a.shift(),a=f(n,d+2))):[`_/\\`[d%3]]

<input type=number min=1 oninput=o.textContent=f(this.value).join`\n`><pre id=o>

Возвращает массив строк. Получение правильного расстояния было самой сложной частью! Версия с чистой строкой для 205 байтов:

f=(n,d=0,r=n=>` `.repeat(n))=>n?f(--n,d=3-d%3).replace(/.+/g,s=>r([l=s.length/2,0,1,~n&1][d]+l)+s+r([,1,0,~n&1][d]+l))+`\n`+f(n,d+1).replace(/.+/g,s=>s+r(!(d%3))+a.shift(),a=f(n,d+2).split`\n`):`_/\\`[d%3]