Yin and yang: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (→{{header|J}}) |
||
| Line 109: | Line 109: | ||
squares=. ,"0/~each ranges |
squares=. ,"0/~each ranges |
||
circles=. radii ([ >: +/"1&.:*:@])each squares |
circles=. radii ([ >: +/"1&.:*:@])each squares |
||
cInds=. ({:radii) +each circles #&(,/)each squares |
|||
M=. ' *.' {~ circles (* 1 + 0 >: {:"1)&(_1&{::) squares |
M=. ' *.' {~ circles (* 1 + 0 >: {:"1)&(_1&{::) squares |
||
offset=. 3*y,0 |
offset=. 3*y,0 |
||
M=. '*' ((_2 {:: |
M=. '*' ((_2 {:: cInds) <@:+"1 offset)} M |
||
M=. '.' ((_2 {:: |
M=. '.' ((_2 {:: cInds) <@:-"1 offset)} M |
||
M=. '.' ((_3 {:: |
M=. '.' ((_3 {:: cInds) <@:+"1 offset)} M |
||
M=. '*' ((_3 {:: |
M=. '*' ((_3 {:: cInds) <@:-"1 offset)} M |
||
)</lang> |
)</lang> |
||