Task

Draw a Cantor set.



See details at this Wikipedia webpage:   Cantor set

 
odometer =: [: (4 $. $.) $&1
 
cantor_dust =: monad define
 shape =. ,~ 3 ^ y
 a =. shape $ ' '
 i =. odometer shape
 < (}:"1) 1j1 #"1 '#' (([: <"1 [: ;/"1 (#~ 1 e."1 [: (,/"2) 3 3&#:)) i)}a
)
 