Data commit

Task/Pick-random-element/Haskell/pick-random-element-1.hs

@@ -0,0 +1,6 @@
+import System.Random (randomRIO)
+
+pick :: [a] -> IO a
+pick xs = fmap (xs !!) $ randomRIO (0, length xs - 1)
+
+x <- pick [1, 2, 3]

Task/Pick-random-element/Haskell/pick-random-element-2.hs

@@ -0,0 +1,2 @@
+import Data.Random
+sample $ randomElement  [1, 2, 3]

Task/Pick-random-element/Haskell/pick-random-element-3.hs

@@ -0,0 +1,3 @@
+do
+  x <- sample $ randomElement  [1, 2, 3]
+  print x