Завдання тут полягає в тому, щоб точно зобразити квітку життя (яка, на думку деяких, священна геометрична фігура) мовою, яку ви вибрали.

Конструкція складається з розташування кіл та часткових кіл радіусу 1, як показано, центри яких розташовані на трикутній сітці кроку 1 плюс один більший коло радіуса 3, що їх оточує.

Дизайн можна масштабувати так, як вам подобається, але дозволена максимальна помилка в 2% від математично правильної. Якщо використовувати растрову графіку, це ефективно обмежує діаметр невеликих кіл щонайменше приблизно на 100 пікселів.

Оскільки це код-гольф, виграє найкоротший код (байти).

Математика, 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}

Основна ідея полягає в тому, щоб скласти результат із шести поворотних версій цього:

Це в свою чергу прямокутна таблиця однакових дуг кола з відрізаними двома кутами. Якщо ми видалимо зріз і представляємо кожен центр кола з а #, ми, як правило, хочемо розподілити кола за цим шаблоном:

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

Ці краї відрізаються, встановивши умову -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 символів.
Частина цього коду технічно непотрібна, але робить його більш схожим на малюнок.

Математика 263 байт

Не дуже конкурентоспроможний з поданням @ 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) />`)}

Працює, генеруючи кілька пар дуг різної довжини, потім обертаючи їх на місце.