Mandelbrot set

You are encouraged to solve this task according to the task description, using any language you may know.


Task

Generate and draw the Mandelbrot set.



Note that there are many algorithms to draw Mandelbrot set and there are many functions which generate it .




 
: d2c(*,*) 2 compress 'c dress ;        # Make a complex number.
 
: iterate(c) [0 0](c) "dup * over +" steps reshape execute ;
 
: print_line(*) "#*+-. " "" split swap subscript "" join . "\n" . ;
 
75 iota 45 - 20 /                       # x coordinates
29 iota 14 - 10 /                       # y cordinates
'd2c outer                              # Make complex matrix.
 
10 'steps set                           # How many iterations?
 
iterate abs int 5 min 'print_line apply # Compute & print 
 