2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Pick-random-element/Haskell/pick-random-element-1.hs
+++ b/Task/Pick-random-element/Haskell/pick-random-element-1.hs
@ -1,6 +1,6 @@
-import Random (randomRIO)
+import System.Random (randomRIO)

 pick :: [a] -> IO a
-pick xs = randomRIO (0, length xs - 1) >>= return . (xs !!)
+pick xs = fmap (xs !!) $ randomRIO (0, length xs - 1)

 x <- pick [1 2 3]