Buradaki zorluk, yaşam çiçeğini (bazılarına göre kutsal bir geometrik figür olan) seçtiğiniz dilde doğru bir şekilde tasvir etmektir.

Tasarım gösterildiği gibi merkezleri yarıçapı 1 olan üçgen bir ızgara üzerinde düzenlenmiş olan yarıçapı 1 olan kısmi daireler ve artı onları çevreleyen yarıçapı 3 olan daha büyük bir daire içerir.

Tasarım istediğiniz gibi ölçeklenebilir, ancak matematiksel olarak doğru olan% 2'lik bir maksimum hataya izin verilir. Raster grafikler kullanılıyorsa, bu, küçük dairelerin çapını en az yaklaşık 100 piksel ile etkili bir şekilde sınırlar.

Bu kod golf olduğundan, en kısa kod (bayt) kazanır.

Mathematica 177 173 128 124 120 bayt

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}

Ana fikir, bunun altı döndürülmüş versiyonundan sonuç oluşturmaktır:

Bu da, iki köşesi kesilmiş aynı daire yaylarından oluşan dikdörtgen bir tablodur. Kesmeyi kaldırır ve her daire merkezini a ile temsil #edersek, temel olarak bu modeldeki daireleri dağıtmak isteriz:

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

Bu kenarlar -3 < x-y < 4, 2D indekslere koşul dayatılarak kesilir (çünkü değeri x-ydiyagonaller boyunca sabittir) ve kesme, bunların çoğalmasından xve yaradığımız ızgarayı kapsayan dik olmayan temel vektörlerle gelir.

Döndürülemeyen yayların bu özel yönelimi, arkın her iki ucu Pida yay olarak ifade edilebilecek şekilde eşit şekilde bölündüğü için en kısa olarak ortaya çıkar Pi/{6,2}(diğer tüm yaylar ya ek olarak ek ek işareti veya tamsayı gerektirir).

OpenSCAD, 228 bayt

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

Aşağıda, birinin r (yarıçap) ve w (halkaların genişliği) parametrelerini ayarlamasına izin veren bir sürüm bulunmaktadır.

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

Bu sürüm tam 246 karakterdir.
Bu kodun bir kısmı teknik olarak gereksizdir ancak resme daha çok benzemektedir.

Mathematica 263 Bayt

@ MartinEnder'in gönderimi ile gerçekten rekabetçi değil ama yine de bu konuda eğlendim. Yaprakların rastgele bir yürüyüş yapmasına izin verdim! Petal, rastgele seçilen son noktalardan biri etrafında rastgele 60 derece dönerek yürür. Petalın dönen ucunun büyük diskin dışında olup olmadığını test ediyorum ve eğer öyleyse rotasyon diğer yöne gidiyor.

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

İşte animasyon için kullandığım sonraki kod.

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

Bir yerde 2 boyutlu rastgele yürüyüşlerin sonunda başlangıç ​​noktasına dönmesi gerektiğini okudum. Birkaç bin adım büyük diski doldurmayı garanti ediyor gibi görünüyor.

JavaScript (ES6) / SVG, 299 bayt

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

Çeşitli uzunluklarda birden fazla ark çifti oluşturarak ve sonra onları döndürerek çalışır.