tasks a-s

Task/Dragon-curve/Haskell/dragon-curve-1.hs

@@ -0,0 +1,18 @@
+import Data.List
+import Graphics.Gnuplot.Simple
+
+-- diamonds
+-- pl = [[0,1],[1,0]]
+
+pl = [[0,0],[0,1]]
+r_90 = [[0,1],[-1,0]]
+
+ip :: [Int] -> [Int] -> Int
+ip xs = sum . zipWith (*) xs
+matmul xss yss = map (\xs -> map (ip xs ). transpose $ yss) xss
+
+vmoot xs = (xs++).map (zipWith (+) lxs). flip matmul r_90.
+          map (flip (zipWith (-)) lxs) .reverse . init $ xs
+   where lxs = last xs
+
+dragoncurve = iterate vmoot pl

Task/Dragon-curve/Haskell/dragon-curve-2.hs

@@ -0,0 +1,11 @@
+x 0 = ""
+x n = (x$n-1)++" +"++(y$n-1)++" f +"
+y 0 = ""
+y n = " - f"++(x$n-1)++" -"++(y$n-1)
+
+dragon n =
+	concat ["0 setlinewidth 300 400 moveto",
+		"/f{2 0 rlineto}def/+{90 rotate}def/-{-90 rotate}def\n",
+		"f", x n, " stroke showpage"]
+
+main = putStrLn $ dragon 14