ความท้าทายที่นี่คือการพรรณนาถึงดอกไม้แห่งชีวิตอย่างถูกต้อง (ซึ่งเป็นรูปทรงเรขาคณิตศักดิ์สิทธิ์ตามที่ระบุไว้) ในภาษาที่คุณเลือก

การออกแบบประกอบด้วยการจัดเรียงของวงกลมและวงกลมบางส่วนของรัศมี 1 ตามที่แสดงซึ่งมีศูนย์จัดบนตารางสามเหลี่ยมของสนาม 1 รวมทั้งวงกลมรัศมีใหญ่ 3 รอบ

การออกแบบสามารถปรับขนาดตามที่คุณต้องการ แต่อนุญาตให้มีข้อผิดพลาดสูงสุด 2% จากความถูกต้องทางคณิตศาสตร์ที่ได้รับอนุญาต หากใช้กราฟิกแรสเตอร์จะเป็นการ จำกัด เส้นผ่าศูนย์กลางของวงกลมขนาดเล็กให้มีอย่างน้อยประมาณ 100 พิกเซล

เนื่องจากนี่คือ code-golf รหัสที่สั้นที่สุด (ไบต์) จะเป็นผู้ชนะ

Mathematica, 177 173 128 124 120 ไบต์

c=Circle;Graphics@{{0,0}~c~3,Rotate[Table[If[-3<x-y<4,c[{√3x,-x+2y}/2,1,Pi/{6,2}]],{x,-3,2},{y,-4,2}],Pi/3#]&~Array~6}

แนวคิดหลักคือการเขียนผลลัพธ์จากสิ่งนี้หมุนหกรุ่น:

นี่คือตารางสี่เหลี่ยมของส่วนโค้งวงกลมที่เหมือนกันโดยตัดมุมทั้งสองออก หากเราลบการตัดและเป็นตัวแทนของแต่ละศูนย์วงกลมด้วย a #โดยทั่วไปเราต้องการกระจายวงกลมในรูปแบบนี้:

####
#####
######
######
 #####
  ####

ขอบเหล่านี้ถูกตัดออกโดยกำหนดเงื่อนไข-3 < x-y < 4ในดัชนี 2D (เนื่องจากค่าของค่าx-yคงที่ตามแนวเส้นทแยงมุม) และการตัดมาจากการคูณเหล่านี้xและyโดยเวกเตอร์พื้นฐานที่ไม่ใช่มุมฉากซึ่งครอบคลุมตารางที่เรากำลังมองหา

การวางแนวที่เฉพาะเจาะจงของส่วนโค้งที่ยังไม่ได้หมุนนี้จะสั้นที่สุดเนื่องจากปลายทั้งสองของส่วนโค้งจะแบ่งเท่า ๆ กันPiเพื่อให้ส่วนโค้งสามารถแสดงเป็นPi/{6,2}(ส่วนโค้งอื่น ๆ ทั้งหมดต้องการและเครื่องหมายลบหรือจำนวนเต็มเพิ่มเติมในตัวเศษ)

OpenSCAD, 228 ไบต์

$fn=99;module o(a=9){difference(){circle(a);circle(a-1);}}function x(n)=9*[sin(n*60),cos(n*60)];module q(g){for(i=[1:6])if(g>0){translate(x(i))union(){o();q(g-1);}}else{intersection(){translate(x(i))o();circle(9);}}}q(2);o(27);

ด้านล่างเป็นรุ่นที่อนุญาตให้บางคนตั้งค่าพารามิเตอร์ r (รัศมี) และ w (ความกว้างของวงแหวน)

r=1;w=.1;$fn=99;module o(n){difference(){circle(n);circle(n-w);}}function x(n)=(r-w/2)*[sin(n*60),cos(n*60)];module q(g){for(i=[1:6])if(g>0){translate(x(i))union(){o(r);q(g-1);}}else{intersection(){translate(x(i))o(r);circle(r);}}}q(2);o(3*r-w);

รุ่นนี้มีความยาว 246 อักขระ
บางรหัสนี้ไม่จำเป็นทางเทคนิค แต่ทำให้ดูคล้ายรูปภาพมากขึ้น

Mathematica 263 Bytes

ไม่สามารถแข่งขันได้กับผลงานของ @ MartinEnder แต่ฉันก็สนุกไปกับเรื่องนี้ ฉันปล่อยให้กลีบเดินสุ่ม! กลีบดอกเดินด้วยการหมุน 60 องศาโดยการสุ่มประมาณหนึ่งในจุดปลายซึ่งถูกสุ่มเลือก ฉันทดสอบเพื่อดูว่าจุดสิ้นสุดของการหมุนของกลีบตกอยู่นอกดิสก์ขนาดใหญ่หรือไม่และถ้าเป็นเช่นนั้นการหมุนจะไปทางอื่น

c=Circle;a=√3;v={e=0{,},{0,2}};f=RandomChoice;Graphics@{e~c~6,Table[q=f@{1,2};t=f@{p=Pi/3,-p};r=RotationTransform[#,v[[q]]]&;v=r[If[r[t]@v[[-q]]∈e~Disk~6,t,-t]]@v;Translate[Rotate[{c[{1,a},2,p{4,5}],c[{1,-a},2,p{1,2}]},ArcTan@@(#-#2)&@@v,e],v[[2]]],{5^5}]}

นี่คือรหัสถัดไปที่ฉันใช้สำหรับการเคลื่อนไหว

Export[NotebookDirectory[]<>"flower.gif", Table[Graphics[Join[{c[e,6]},(List@@%)[[1,2,1;;n-1]],{Thick,Red,(List@@%)[[1,2,n]]}]],{n,1,3^4,1}]]

ฉันอ่านที่ไหนสักแห่งว่าการเดินแบบสุ่มสองมิติต้องกลับไปสู่จุดเริ่มต้นในที่สุด ดูเหมือนรับประกันสองสามพันขั้นตอนในการเติมดิสก์ขนาดใหญ่

JavaScript (ES6) / SVG, 299 ไบต์

with(document){write(`<svg height=250 width=250><circle${b=` fill=none stroke=black `}cx=125 cy=125 r=120 />`);for(i=0;i<24;i++)write(`<path${b}d=M5,125${`${a=`a60,60,0,0,1,`}40,0`.repeat(i%4+3)+`${a}-40,0`.repeat(i%4+3)} transform=${`rotate(60,125,125)`.repeat(i>>2)}rotate(-60,${i%4*4}5,125) />`)}

ทำงานโดยการสร้างส่วนโค้งหลายคู่ที่มีความยาวต่าง ๆ แล้วหมุนเข้าที่