시어 핀 스키 화살촉 곡선은 한계가 시어 핀 스키의 삼각형의 곡선이다.
먼저 다음과 같이 시작합니다.
_
/ \
그런 다음 각 줄은 첫 번째 줄의 회전 버전으로 바뀝니다.
_
/ \
\ /
_/ \_
다음:
_
/ \
\ /
_/ \_
/ \
\_ _/
_ \ / _
/ \_/ \_/ \
숫자 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주어진를여기 추가 인수를 추가하여 병합합니다 :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 기반), angle :a, length:l . :a방향이 올바른지 확인하기 위해 두 인스턴스에서 부정 된 각도로 더 낮은 반복을 호출하는 것이 재귀 적 입니다.
rt :a, lt :a왼쪽으로 거북이 (경로가 추적 된 삼각형)를 오른쪽으로 회전:a 도.fd :l 거북이를 앞으로 움직입니다 :l 단계별로 입니다.이 함수는 :a60과 같이 호출됩니다 .
여기에, repeat내장 된 카운터, 기본적으로 FOR 루프입니다 repcount.pu그리고 pd그 위치가 세트되는 동안 사용 도면에서 거북 중지 평균 "펜 업"및 "펜 다운"setxy .
각 반복의 도면은 길이 호출 된 :l동일한 power 2 (7-repcount)기하 급수적으로 감소하는; 이는 :l재귀 단계에서 정의가 동일하게 사용되기 때문에 고정 된 :l출력의 전체 크기는로 기하 급수적으로 증가하기 때문입니다 :n.
60바이트 수에 포함합니까?
Wikipedia 기사의 코드를 기반으로합니다.
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은 직선입니다.
s=1;Region@Line@AnglePath[Nest[Join@@({#,s=-s,s}&/@#)&,{#~Mod~2},#]Pi/3]&
간단한 설명 :
AnglePath [{θ1, θ2, θ3 ,…}]는 {0,0}에서 시작하는 경로에 해당하는 2D 좌표 목록을 제공 한 다음 연속 상대 각도 θi에서 일련의 단위 길이 단계를 수행합니다.
n = 1
Graphics@Line@AnglePath[60°{1,-1,-1}]
n = 2
Graphics@Line@AnglePath[60°{0,1,1, -1,-1,-1, -1,1,1}]
n = 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}]
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.