Wyzwanie polega na tym, aby dokładnie przedstawić kwiat życia (według niektórych świętą figurę geometryczną) w wybranym języku.

Projekt składa się z układu okręgów i częściowych okręgów o promieniu 1, jak pokazano, których środki ułożone są na trójkątnej siatce o skoku 1, oraz wokół jednego większego okręgu o promieniu 3, który je otacza.

Projekt można skalować według własnego uznania, ale dopuszczalny jest błąd maksymalny 2% z poprawności matematycznej. W przypadku korzystania z grafiki rastrowej skutecznie ogranicza to średnicę małych kółek do co najmniej około 100 pikseli.

Ponieważ jest to golfowy kod, wygrywa najkrótszy kod (bajty).

Mathematica, 177 173 128 124 120 bajtów

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}

Główną ideą jest skomponowanie wyniku z sześciu obróconych wersji tego:

To z kolei jest prostokątnym stołem o identycznych łukach koła z odciętymi dwoma narożnikami. Jeśli usuniemy ścinanie i reprezentujemy każdy środek okręgu za pomocą #, zasadniczo chcemy rozmieścić koła w tym wzorze:

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

Te krawędzie są odcięte przez nałożenie warunku -3 < x-y < 4na wskaźniki 2D (ponieważ wartość x-yjest stała wzdłuż przekątnych), a ścinanie pochodzi z pomnożenia ich xoraz yprzez nieortogonalne wektory bazowe, które obejmują siatkę, której szukamy.

Ta szczególna orientacja nieobróconych łuków okazuje się być najkrótsza, ponieważ oba końce łuku dzielą się równomiernie, Pidzięki czemu łuk może być wyrażony jako Pi/{6,2}(wszystkie inne łuki wymagałyby dodatkowego znaku minus lub liczb całkowitych w liczniku).

OpenSCAD, 228 bajtów

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

Poniżej znajduje się wersja umożliwiająca ustawienie parametrów r (promień) i w (szerokość pierścieni).

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

Ta wersja ma dokładnie 246 znaków.
Część tego kodu jest technicznie niepotrzebna, ale sprawia, że ​​wygląda bardziej jak obrazek.

Mathematica 263 bajtów

Niezbyt konkurencyjne wobec przesłania @ MartinEnder, ale mimo to dobrze się bawiłem. Pozwoliłem płatkom na przypadkowy spacer! Płatek chodzi, obracając losowo o 60 stopni wokół jednego z punktów końcowych, który jest również losowo wybierany. Sprawdzam, czy obracający się koniec płatka wypadnie poza duży dysk, a jeśli tak, obrót przebiega w drugą stronę.

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

Oto kolejny kod, którego użyłem do animacji.

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

Czytałem gdzieś, że dwuwymiarowe losowe spacery muszą ostatecznie wrócić do źródła. Wygląda na to, że kilka tysięcy kroków gwarantuje wypełnienie dużego dysku.

JavaScript (ES6) / SVG, 299 bajtów

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

Działa, generując wiele par łuków o różnych długościach, a następnie obracając je na miejsce.