September 2017 Update

Task/Pick-random-element/Aime/pick-random-element.aime

@@ -7,5 +7,5 @@ l_append(l, 'd');
 l_append(l, 'e');
 l_append(l, 'f');
 
-o_byte(l_query(l, drand(5)));
+o_byte(l[drand(5)]);
 o_byte('\n');

Task/Pick-random-element/BaCon/pick-random-element.bacon

@@ -0,0 +1,8 @@
+' Pick random element
+OPTION BASE 1
+DECLARE words$[6]
+FOR i = 1 TO 6 : READ words$[i] : NEXT
+DATA "Alpha", "Beta", "Gamma", "Delta", "Epsilon", "Zeta"
+
+element = RANDOM(6) + 1
+PRINT "Chose ", element, ": ", words$[element]

Task/Pick-random-element/C/pick-random-element.c

@@ -1,13 +1,18 @@
+/*Corrected by Abhishek Ghosh, Mahalaya (19th September) 2017*/
+
 #include <stdio.h>
 #include <stdlib.h>
 #include <time.h>
 
 int main(){
-  char array[] = { 'a', 'b', 'c' };
+   char array[] = { 'a', 'b', 'c','d','e','f','g','h','i','j' };
+   int i;
+   time_t t;
+   srand((unsigned)time(&t));
 
-  srand( time( 0 ) );
+   for(i=0;i<30;i++){
+		printf("%c\n", array[rand()%10]);
+   }
 
-  printf( "%c\n", array[ rand() % 3 ] );
-
-  return 0;
+   return 0;
 }

Task/Pick-random-element/Elena/pick-random-element.elena

@@ -1,15 +1,14 @@
-#import system.
-#import extensions.
+import extensions.
 
-#class(extension)listOp
+extension listOp
 {
-    #method randomItem
-        = self @ (randomGenerator eval:(self length)).
+    randomItem
+        = self[randomGenerator eval(self length)].
 }
 
-#symbol program =
+program =
 [
-    #var item := (0, 1, 2, 3, 4, 5, 6, 7, 8, 9).
+    var item := (0, 1, 2, 3, 4, 5, 6, 7, 8, 9).
 
-    console writeLine:"I picked element ":(item randomItem).
+    console printLine("I picked element ",item randomItem).
 ].

Task/Pick-random-element/Gambas/pick-random-element.gambas

@@ -0,0 +1,6 @@
+Public Sub Main()
+Dim sList As String[] = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]
+
+Print sList[Rand(0, 11)]
+
+End

Task/Pick-random-element/Kotlin/pick-random-element.kotlin

@@ -0,0 +1,13 @@
+// version 1.0.6
+
+fun main(args: Array<String>) {
+    val list = listOf(1, 16, 3, 7, 17, 24, 34, 23, 11, 2)
+    println("The list consists of the following numbers:")
+    println(list)
+    val chosen = mutableSetOf<Int>()
+    println("\nFive elements chosen at random without duplication are:")
+    while (chosen.size < 5) {
+        val r = list[(Math.random() * list.size).toInt()]
+        if (chosen.add(r)) println(r)
+    }
+}

Task/Pick-random-element/PowerShell/pick-random-element.psh

@@ -0,0 +1 @@
+1..100 | Get-Random -Count 3

Task/Pick-random-element/PureBasic/pick-random-element-2.purebasic

@@ -1,4 +1,3 @@
-Define.i
 OpenConsole()
 
 a$="One" +#TAB$+ "Two"  +#TAB$+ "Three" +#TAB$+ "Four" +#TAB$+ "Five" +#TAB$+

Task/Pick-random-element/REXX/pick-random-element-1.rexx

@@ -1,21 +1,17 @@
-/*REXX program to pick a random element from a list (tongue in cheek). */
+/*REXX program picks a   random element   from a list   (tongue in cheek, a visual pun).*/
+_=  'hydrogen helium lithium beryllium boron carbon nitrogen oxygen fluorine neon sodium'
+_=_ 'magnesium aluminum silicon phosphorous sulfur chlorine argon potassium calcium'
+_=_ 'scandium titanium vanadium chromium manganese iron cobalt nickel copper zinc gallium'
+_=_ 'germanium arsenic selenium bromine krypton rubidium strontium yttrium zirconium'
+_=_ 'niobium molybdenum technetium ruthenium rhodium palladium silver cadmium indium tin'
+_=_ 'antimony tellurium iodine xenon cesium barium lanthanum cerium praseodymium'
+_=_ 'neodymium promethium samarium europium gadolinium terbium dysprosium holmium erbium'
+_=_ 'thulium ytterbium lutetium hafnium tantalum tungsten rhenium osmium iridium platinum'
+_=_ 'gold mercury thallium lead bismuth polonium astatine radon francium radium actinium'
+_=_ 'thorium protactinium uranium neptunium plutonium americium curium berkelium'
+_=_ 'californium einsteinium fermium mendelevium nobelium lawrencium rutherfordium dubnium'
+_=_ 'seaborgium bohrium hassium meitnerium darmstadtium roentgenium copernicium Ununtrium'
 
-_=  'hydrogen helium lithium beryllium boron carbon nitrogen oxygen'
-_=_ 'fluorine neon sodium magnesium aluminum silicon phosphorous sulfur'
-_=_ 'chlorine argon potassium calcium scandium titanium vanadium chromium'
-_=_ 'manganese iron cobalt nickel copper zinc gallium germanium arsenic'
-_=_ 'selenium bromine krypton rubidium strontium yttrium zirconium'
-_=_ 'niobium molybdenum technetium ruthenium rhodium palladium silver'
-_=_ 'cadmium indium tin antimony tellurium iodine xenon cesium barium'
-_=_ 'lanthanum cerium praseodymium neodymium promethium samarium europium'
-_=_ 'gadolinium terbium dysprosium holmium erbium thulium ytterbium'
-_=_ 'lutetium hafnium tantalum tungsten rhenium osmium irdium platinum'
-_=_ 'gold mercury thallium lead bismuth polonium astatine radon francium'
-_=_ 'radium actinium thorium protactinium uranium neptunium plutonium'
-_=_ 'americium curium berkelium californium einsteinum fermium mendelevium'
-_=_ 'nobelium lawrencium rutherfordium dubnium seaborgium bohrium hassium'
-_=_ 'meitnerium darmstadtium roentgenium copernicium Ununtrium'
-
-w=words(_)
-say 'random element =' word(_,random(1,w))
-                                       /*stick a fork in it, we're done.*/
+#=words(_)                                       /*obtain the number of words in list.  */
+item=subword(_, random(1, #), 1)                 /*obtain random word (element) in list.*/
+say 'random element: '    item                   /*stick a fork in it,  we're all done. */

Task/Pick-random-element/Ruby/pick-random-element-1.rb

@@ -1,4 +0,0 @@
-irb(main):001:0> %w(north east south west).sample
-=> "west"
-irb(main):002:0> (1..100).to_a.sample(2)
-=> [17, 79]

Task/Pick-random-element/Ruby/pick-random-element-2.rb

@@ -1,2 +0,0 @@
-irb(main):001:0> %w(north east south west).choice
-=> "south"

Task/Pick-random-element/Rust/pick-random-element.rust

@@ -0,0 +1,6 @@
+extern crate rand;
+use rand::Rng;
+fn main() {
+    let array = [5,1,2,5,6,7,8,1,2,4,5];
+    println!("{}", rand::thread_rng().choose(&array).unwrap());
+}

Task/Pick-random-element/SuperCollider/pick-random-element.supercollider

@@ -0,0 +1 @@
+[1, 2, 3].choose

Task/Pick-random-element/Zkl/pick-random-element.zkl

@@ -0,0 +1,2 @@
+list:=T("hydrogen", "helium", "lithium", "beryllium", "boron");
+list[(0).random(list.len())]