Mandelbrot set: Difference between revisions

Line 4,184:

******

** </pre>

----

'''haskell one-liner :'''

foldr(>>)(return())[putStrLn[let(a,b)=foldr(\_(u,w)->(u^2-w^2+x,2*u*w+y))(0,0)[1..500]in if a^2+b^2<4 then '*' else ' '|x<-[-2,-1.98..0.5]]|y<-[1,0.98.. -1]]

-- open GHCI > Copy and paste the above code > Hit enter

output :

<pre>

*

**

*

*******

*********

**********

********

*******

*****

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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