update

Task/Pick-random-element/C++/pick-random-element.cpp

@@ -0,0 +1,15 @@
+#include <iostream>
+#include <random>
+#include <vector>
+
+int main( ) {
+   std::vector<int> numbers { 11 , 88 , -5 , 13 , 4 , 121 , 77 , 2 } ;
+   std::random_device seed ;
+   // generator
+   std::mt19937 engine( seed( ) ) ;
+   // number distribution
+   std::uniform_int_distribution<int> choose( 0 , numbers.size( ) - 1 ) ;
+   std::cout << "random element picked : " << numbers[ choose( engine ) ]
+      << " !\n" ;
+   return 0 ;
+}

Task/Pick-random-element/D/pick-random-element.d

@@ -1,7 +1,6 @@
 import std.stdio, std.random;
 
 void main() {
-    auto items = ["foo", "bar", "baz"];
-    auto r = items[uniform(0, $)];
-    writeln(r);
+    const items = ["foo", "bar", "baz"];
+    items[uniform(0, $)].writeln;
 }

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

@@ -0,0 +1,8 @@
+% Implemented by Arjun Sunel
+-module(pick_random).
+-export([main/0]).
+
+main() ->
+	List =[1,2,3,4,5],
+	index = random:uniform(length(List)),
+	lists:nth(index,List).

Task/Pick-random-element/Perl-6/pick-random-element-1.pl6

@@ -1,3 +1 @@
-(1..6).roll;    # return 1 random value in the range 1 through 6
-(1..6).roll(3); # return a list of 3 random values in the range 1 through 6
-(1..6).roll(*); # return a lazy infinite list of random values in the range 1 through 6
+say (1, 2, 3).pick;

Task/Pick-random-element/Perl-6/pick-random-element-2.pl6

@@ -1,5 +1,3 @@
-# define the deck
-constant deck = 2..9, <J Q K A> X~ <♠ ♣ ♥ ♦>;
-deck.pick;    # Pick a card
-deck.pick(5); # Draw 5
-deck.pick(*); # Get a shuffled deck
+(1..6).roll;    # return 1 random value in the range 1 through 6
+(1..6).roll(3); # return a list of 3 random values in the range 1 through 6
+(1..6).roll(*); # return a lazy infinite list of random values in the range 1 through 6

Task/Pick-random-element/Perl-6/pick-random-element-3.pl6

@@ -1 +1,5 @@
-@array[@array * rand]
+# define the deck
+constant deck = 2..9, <J Q K A> X~ <♠ ♣ ♥ ♦>;
+deck.pick;    # Pick a card
+deck.pick(5); # Draw 5
+deck.pick(*); # Get a shuffled deck

Task/Pick-random-element/Perl-6/pick-random-element-4.pl6

@@ -1 +1 @@
-say Bool.pick;  # returns either True or False
+@array[@array * rand]

Task/Pick-random-element/Perl-6/pick-random-element-5.pl6

@@ -0,0 +1 @@
+say Bool.pick;  # returns either True or False

Task/Pick-random-element/Racket/pick-random-element.rkt

@@ -0,0 +1,3 @@
+#lang racket
+(define (pick-item l)
+  (list-ref l (random (length l))))