Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Pascal
element := x[random(length(x))];

if x is an Array
uses classes;
element := x.Items[random(x.count)];

If x is a TList or TStrings -descendent
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...