Thách thức ở đây là mô tả chính xác bông hoa của sự sống (vốn là một nhân vật hình học thiêng liêng theo một số người) bằng ngôn ngữ bạn chọn.

Thiết kế bao gồm một sự sắp xếp các vòng tròn và một phần vòng tròn bán kính 1 như thể hiện các tâm của chúng được sắp xếp trên một lưới tam giác của sân 1, cộng với một vòng tròn lớn hơn bán kính 3 bao quanh chúng.

Thiết kế có thể được thu nhỏ tùy ý, nhưng cho phép sai số tối đa là 2% so với toán học chính xác. Nếu sử dụng đồ họa raster, điều này giới hạn hiệu quả đường kính của các vòng tròn nhỏ ở mức tối thiểu khoảng 100 pixel.

Vì đây là mã golf, mã ngắn nhất (byte) sẽ thắng.

Toán học, 177 173 128 124 120 byte

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}

Ý tưởng chính là tổng hợp kết quả từ sáu phiên bản xoay vòng này:

Lần lượt là một bảng hình chữ nhật của các vòng cung giống hệt nhau với hai góc bị cắt đi. Nếu chúng ta loại bỏ sự cắt và đại diện cho mỗi tâm vòng tròn bằng a #, về cơ bản chúng ta muốn phân phối các vòng tròn theo mẫu này:

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

Các cạnh này bị cắt bằng cách áp đặt điều kiện -3 < x-y < 4trên các chỉ số 2D (vì giá trị x-ylà không đổi dọc theo các đường chéo) và sự cắt xén xuất phát từ việc nhân chúng xvà ycác vectơ cơ sở không trực giao trải qua lưới mà chúng ta đang tìm kiếm.

Hướng đặc biệt này của các cung không được bảo vệ hóa ra là ngắn nhất vì cả hai đầu của cung đều chia đều Piđể cung có thể được biểu thị là Pi/{6,2}(tất cả các cung khác sẽ yêu cầu và thêm dấu trừ hoặc số nguyên trong tử số).

OpenSCAD, 228 byte

$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);

Dưới đây là phiên bản cho phép ai đó đặt tham số r (bán kính) và w (chiều rộng của các vòng).

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);

Phiên bản này là xactly 246 ký tự.
Một số mã này là không cần thiết về mặt kỹ thuật nhưng làm cho nó trông giống như hình ảnh.

Toán học 263 byte

Không thực sự cạnh tranh với đệ trình của @ MartinEnder nhưng dù sao tôi cũng rất vui với điều này. Tôi để những cánh hoa làm một bước đi ngẫu nhiên! Cánh hoa đi bằng cách xoay 60 độ ngẫu nhiên về một trong những điểm cuối cũng được chọn ngẫu nhiên. Tôi kiểm tra xem đầu xoay của cánh hoa có nằm ngoài đĩa lớn không, và nếu vậy, vòng quay đi theo hướng khác.

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}]}

Đây là đoạn mã tiếp theo tôi sử dụng cho hình ảnh động.

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}]]

Tôi đọc ở đâu đó rằng đi bộ ngẫu nhiên 2 chiều cuối cùng phải trở về nguồn gốc. Có vẻ như một vài ngàn bước đảm bảo lấp đầy đĩa lớn.

JavaScript (ES6) / SVG, 299 byte

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) />`)}

Hoạt động bằng cách tạo ra nhiều cặp cung có độ dài khác nhau sau đó xoay chúng vào vị trí.