June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Pick-random-element/Haskell/pick-random-element-3.hs
+++ b/Task/Pick-random-element/Haskell/pick-random-element-3.hs
@ -1,3 +1,3 @@
-import Test.QuickCheck (generate, elements)
-
-x <- (generate . elements) [1, 2, 3]
+do
+  x <- sample $ randomElement  [1, 2, 3]
+  print x