September Morn Update

Task/Pick-random-element/AppleScript/pick-random-element.applescript

@@ -0,0 +1 @@
+get some item of [1, "two", pi, "4", 5 > 4, 5 + 1, Sunday]

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

@@ -1,14 +1,14 @@
-import extensions.
+import extensions;
 
 extension listOp
 {
-    randomItem
-        = self[randomGenerator eval(self length)].
+    randomItem()
+        = self[randomGenerator.eval(self.Length)];
 }
 
-program =
-[
-    var item := (0, 1, 2, 3, 4, 5, 6, 7, 8, 9).
+public program()
+{
+    var item := new int[]{0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
 
-    console printLine("I picked element ",item randomItem).
-].
+    console.printLine("I picked element ",item.randomItem())
+}

Task/Pick-random-element/Emacs-Lisp/pick-random-element.l

@@ -0,0 +1,7 @@
+(defun random-choice (items)
+  (let* ((size (length items))
+         (index (random size)))
+    (nth index items)))
+
+(random-choice '("a" "b" "c"))
+;; => "a"

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)),
+	Index = rand:uniform(length(List)),
 	lists:nth(Index,List).

Task/Pick-random-element/Ol/pick-random-element.ol

@@ -0,0 +1,4 @@
+(import (otus random!))
+
+(define x '("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday"))
+(print (list-ref x (rand! (length x))))

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

@@ -10,8 +10,9 @@ _=_ 'thulium ytterbium lutetium hafnium tantalum tungsten rhenium osmium iridium
 _=_ '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'
+_=_ 'seaborgium bohrium hassium meitnerium darmstadtium roentgenium copernicium nihonium'
+_=_ 'flerovium moscovium livermorium tennessine oganesson ununenniym unbinvlium umbiunium'
 
-#=words(_)                                       /*obtain the number of words in list.  */
-item=subword(_, random(1, #), 1)                 /*obtain random word (element) in list.*/
+#= 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/Visual-Basic-.NET/pick-random-element.visual

@@ -0,0 +1,8 @@
+Module Program
+    Sub Main()
+        Dim list As New List(Of Integer)({0, 1, 2, 3, 4, 5, 6, 7, 8, 9})
+        Dim rng As New Random()
+        Dim randomElement = list(rng.Next(list.Count)) ' Upper bound is exclusive.
+        Console.WriteLine("I picked element {0}", randomElement)
+    End Sub
+End Module