Skip to content

Instantly share code, notes, and snippets.

@daemonfire300

daemonfire300/start.hs

Created November 29, 2012 22:20
Show Gist options
  • Save daemonfire300/4172296 to your computer and use it in GitHub Desktop.
Save daemonfire300/4172296 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
start.hs
import Data.Complex
import PNG
type DComp = Complex Double
iter :: DComp -> DComp -> DComp
iter c 0 = 0
iter c z = z*z + c
nest :: (DComp -> DComp) -> DComp -> Integer -> DComp
nest f z 0 = z
nest f z n = f ( nest f z (n-1) )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment