Mandelbrot set: Difference between revisions

(added haskell)
Line 353:
mandelbrot a = iterate (\z -> z^2 + a) a !! 50
 
main = forM_mapM_ putStrLn [1,[if 0.95magnitude ..(mandelbrot -1](x $:+ \y)) < 2 then '*' else ->' do'
forM_ | x <- [-2, -1.9685 .. 0.5] $ \x ->]
putChar $ if magnitude (mandelbrot (x :+ | y)) <- 2[1, then0.95 '*'.. else ' '-1]]</lang>
putStrLn ""</lang>
 
=={{header|haXe}}==
Anonymous user