Skip to content

Instantly share code, notes, and snippets.

@atomictom

atomictom/dragons_curve.hs

Created January 26, 2015 22:36
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save atomictom/597e83c0e4ae36bcfebf to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save atomictom/597e83c0e4ae36bcfebf to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dragons_curve.hs
import Control.Applicative
import System.Environment
main :: IO ()
main = do
n <- (read :: String -> Int) . (!!0) <$> getArgs
putStrLn $ dragon n
dragon :: Int -> String
dragon n
| n >= 0 = filter (not . (`elem` "ab")) $ iterate (concatMap replace) "Fa" !! n
| otherwise = ""
where
replace 'a' = "aRbFR"
replace 'b' = "LFaLb"
replace x = [x]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment