Yin and yang: Difference between revisions

Content added Content deleted
Line 109:
squares=. ,"0/~each ranges
circles=. radii ([ >: +/"1&.:*:@])each squares
ccordscInds=. ({:radii) +each circles #&(,/)each squares
 
M=. ' *.' {~ circles (* 1 + 0 >: {:"1)&(_1&{::) squares
offset=. 3*y,0
M=. '*' ((_2 {:: ccordscInds) <@:+"1 offset)} M
M=. '.' ((_2 {:: ccordscInds) <@:-"1 offset)} M
M=. '.' ((_3 {:: ccordscInds) <@:+"1 offset)} M
M=. '*' ((_3 {:: ccordscInds) <@:-"1 offset)} M
)</lang>
 
Retrieved from "https://rosettacode.org/wiki/Yin_and_yang"