Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Erlang
lists:nth(rand:uniform(length(X)), X).
https://github.com/inaka/erlang-katana
ktn_random:pick(X)
with Ada.Numerics.Discrete_Random;
subtype Element_Type is Integer;
type List_Type is array (Positive range <>) of Element_Type;

function Pick_Random (X : List_Type) return Element_Type is
   subtype Index_Range  is Positive range X'Range;
   package Random_Index is new
     Ada.Numerics.Discrete_Random (Index_Range);
   Generator : Random_Index.Generator;
begin
   Random_Index.Reset (Generator);
   return X (Random_Index.Random (Generator));
end Pick_Random;

New implementation...