mandelbrot.txt

import Data.Complex (magnitude, Complex ((:+)))

main :: IO ()
main = putStrLn $ foldl (\a r -> a ++ r ++ "\n") "" (row <$> [-1,-0.9..1])
  where row r = concat $ (\c -> mandelbrot (c :+ r )) <$> [-2,-1.95..1]
        mandelbrot c = if (magnitude $ iterations c) > 2 then " " else "*"
        iterations c = (iterate (\z -> z^2 + c) (0.0 :+ 0.0)) !! 10

$ runghc mandelbrot.hs

                                     * **                    
                                     ***                     
                                   ******                    
                                   ******      *             
                            *********************            
                           *********************             
               *          ********************** *           
                *******  ************************            
               **********************************            
            ************************************             
***********************************************              
            ************************************             
               **********************************            
                *******  ************************            
               *          ********************** *           
                           *********************             
                            *********************            
                                   ******      *             
                                   ******                    
                                     ***                     
                                     * **