From 8a4f282eb65af9e74b9c044b5b4558af41b6a107 Mon Sep 17 00:00:00 2001
From: Jaron Kent-Dobias <jaron@kent-dobias.com>
Date: Wed, 27 Feb 2019 11:21:56 -0500
Subject: started two problems

---
 02.05.hs | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 02.05.hs

(limited to '02.05.hs')

diff --git a/02.05.hs b/02.05.hs
new file mode 100644
index 0000000..bad7367
--- /dev/null
+++ b/02.05.hs
@@ -0,0 +1,30 @@
+
+import System.Random
+import Control.Monad.State
+import Data.List.Split (chunksOf)
+
+import Graphics.Rendering.Chart.Easy
+import Graphics.Rendering.Chart.Backend.Cairo
+
+import Data.Colour.Names
+import Diagrams.Prelude
+import Diagrams.Backend.SVG.CmdLine
+
+randomWalk :: (RandomGen g) => Int -> Int -> State g [[Double]]
+randomWalk d n = get >>= (\g -> let (g1, g2) = split g in (put g1) >> (return $ take n $ scanl (\x y -> map (uncurry (+)) $ zip x y) (replicate d 0.0)  $ chunksOf d $ randomRs (-0.5,0.5) g2))
+
+drawWalk :: [[Double]] -> Diagram B
+drawWalk w = fromVertices $ (\[x, y] -> p2 (x, y)) <$> w
+
+main = do
+  g <- newStdGen
+  let (w10, g2) = runState (randomWalk 2 10) g
+  let (w1000, g3) = runState (randomWalk 2 1000) g2
+  let (w100000, g4) = runState (randomWalk 2 100000) g3
+--  mainWith $ foldr1 Diagrams.Prelude.atop [lc red $ drawWalk w10, lc blue $ drawWalk w1000, lc green $ drawWalk w100000]
+  let (e1, g5) = runState (sequence $ replicate 10000 $ randomWalk 2 2) g4
+  let (e10, g6) = runState (sequence $ replicate 10000 $ randomWalk 2 11) g5
+  mainWith $ foldr1 Diagrams.Prelude.atop [mconcat $ map (place (lw Diagrams.Prelude.none $ fc yellow $ ((circle 0.01) :: Diagram B))) (map (\[x, y] -> p2 (x, y)) (map last e1)), mconcat $  map (place (lw Diagrams.Prelude.none $ fc black $ circle 0.01)) (map (\[x, y] -> p2 (x, y)) (map last e10))]
+  
+
+
-- 
cgit v1.2.3-70-g09d2