シェルピンスキーアローヘッドカーブの制限がシェルピンスキーの三角形であることを曲線です。
最初は次のように始まります。
_
/ \
次に、各行が最初の行の回転バージョンに置き換えられます。
_
/ \
\ /
_/ \_
次：
_
/ \
\ /
_/ \_
/ \
\_ _/
_ \ / _
/ \_/ \_/ \
数値nを指定すると、Sierpinski Arrowhead Curveのn番目の反復を出力します。
0インデックスまたは1インデックスを選択できますが、回答で指定してください。
画像を生成するか、上記の形式でAscii Artを使用できます。
この曲線を生成するためにビルトインを使用することはできません。
これはcode-golfであるため、バイト数が最も少ないコードが優先されることに注意してください。
回答:
これはここで使用したのと同じアイデアで作成されましたが、sierpinskyの矢じり曲線に合うように変更する必要がありました。
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
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
「a」という透明な背景を持つsvgファイルを作成します。
g 0水平ライン出力、g 1です/¯\。
Diagrams！
plot() ウィンドウが開くのは素晴らしいことです。
ここshapeLでshapeR指定された2つの関数を取り、: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。これは再帰的であり、:a2つのインスタンスで角度を無効にして自身の下位反復を呼び出して、正しい方向を取得します。
rt :a、lt :aタートル（パスがトレースされる三角形のモノ）を右、左に回転させ:aます。fd :l亀を:lステップごとに前進させます。この関数は:a、60に等しい値で呼び出されます。
これrepeatは、本質的には組み込みのcounterを備えたFORループrepcountです。「ペンアップ」と「ペンダウン」puをpd意味しsetxyます。これらは、を使用して位置を設定している間、カメの描画を停止します。
各反復の図面は、に:l等しい長さで呼び出されpower 2 (7-repcount)、指数関数的に減少します。これは、定義:lが再帰的なステップで同じものを使用するためです。したがって、fixed :lでは、出力の全体的なサイズがで指数関数的に増加し:nます。
60、バイトカウントに含めるだけですか？
ウィキペディアの記事のコードに基づいています。
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は直線です。
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]
u=.5;v=3^u/2;B=[u,v];C=[-u,v];A=C<0;16バイト短くなります:)axis off equalさらに5バイト節約することもできます。