Just another update

Task/Pick-random-element/00META.yaml

@@ -1,2 +1,4 @@
 ---
+category:
+- Randomness
 note: Basic language learning

Task/Pick-random-element/ALGOL-68/pick-random-element.alg

@@ -0,0 +1,23 @@
+# pick a random element from an array of strings #
+
+OP PICKRANDOM = ( []STRING list )STRING:
+BEGIN
+
+    INT number of elements = ( UPB list - LWB list ) + 1;
+    INT random element     =
+        ENTIER ( next random * ( number of elements ) );
+
+    list[ LWB list + random element ]
+END; # PICKRANDOM #
+# can define additional operators for other types of array #
+
+
+main: (
+
+    []STRING days = ( "Sunday",   "Monday", "Tuesday", "Wednesday"
+                    , "Thursday", "Friday", "Saturday"
+                    );
+
+    print( ( PICKRANDOM days, newline ) )
+
+)

Task/Pick-random-element/C-sharp/pick-random-element.cs

@@ -0,0 +1,11 @@
+using System;
+using System.Collections.Generic;
+
+class RandomElementPicker {
+  static void Main() {
+    var list = new List<int>(new[]{0, 1, 2, 3, 4, 5, 6, 7, 8, 9});
+    var rng = new Random();
+    var randomElement = list[rng.Next(list.Count)];
+    Console.WriteLine("I picked element {0}", randomElement);
+  }
+}

Task/Pick-random-element/Elixir/pick-random-element.elixir

@@ -0,0 +1,11 @@
+defmodule Random do
+  def init() do
+    :random.seed(:erlang.now())
+  end
+  def pick_element(list) do
+    Enum.at(list, :random.uniform(Enum.count(list)) - 1)
+  end
+end
+
+Random.init()
+IO.puts Random.pick_element(1..20)

Task/Pick-random-element/Erlang/pick-random-element.erl

@@ -4,5 +4,5 @@
 
 main() ->
 	List =[1,2,3,4,5],
-	index = random:uniform(length(List)),
-	lists:nth(index,List).
+	Index = random:uniform(length(List)),
+	lists:nth(Index,List).

Task/Pick-random-element/Falcon/pick-random-element.falcon

@@ -0,0 +1,2 @@
+lst = [1, 3, 5, 8, 10]
+> randomPick(lst)

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

@@ -0,0 +1,3 @@
+import Test.QuickCheck (generate, elements)
+
+x <- (generate . elements) [1, 2, 3]

Task/Pick-random-element/Maxima/pick-random-element.maxima

@@ -0,0 +1,4 @@
+random_element(l):= part(l, 1+random(length(l)));
+/*  (%i1) random_element(['a, 'b, 'c]);
+    (%o1)                                  c
+*/

Task/Pick-random-element/Prolog/pick-random-element.pro

@@ -0,0 +1,2 @@
+?- random_member(M, [a, b, c, d, e, f, g, h, i, j]).
+M = i.

Task/Pick-random-element/Scala/pick-random-element.scala

@@ -0,0 +1,3 @@
+val a = (1 to 10).toList
+
+println(scala.util.Random.shuffle(a).head)