Data commit

Task/Random-numbers/Haskell/random-numbers-1.hs

@@ -0,0 +1,14 @@
+import System.Random
+
+pairs :: [a] -> [(a,a)]
+pairs (x:y:zs) = (x,y):pairs zs
+pairs _        = []
+
+gauss mu sigma (r1,r2) =
+  mu + sigma * sqrt (-2 * log r1) * cos (2 * pi * r2)
+
+gaussians :: (RandomGen g, Random a, Floating a) => Int -> g -> [a]
+gaussians n g = take n $ map (gauss 1.0 0.5) $ pairs $ randoms g
+
+result :: IO [Double]
+result = getStdGen >>= \g -> return $ gaussians 1000 g

Task/Random-numbers/Haskell/random-numbers-2.hs

@@ -0,0 +1 @@
+replicateM 1000 $ normal 1 0.5

Task/Random-numbers/Haskell/random-numbers-3.hs

@@ -0,0 +1,9 @@
+import  Data.Random
+import Control.Monad
+
+thousandRandomNumbers :: RVar [Double]
+thousandRandomNumbers =  replicateM 1000 $ normal 1 0.5
+
+main = do
+   x <- sample thousandRandomNumbers
+   print x