CPAL Playground

/*
Licence Creative Commons CC0 - "No Rights Reserved"
@keywords random; random, gaussian distribution; random, exponential distribution; random, pareto distribution; random, collection; random, enum; random, time64; random, seed 
*/

enum Cardinal_Points
{
  NORTH,
  SOUTH,
  EAST,
  WEST,
};

var stack<int8>: a_stack_of_int[10];

processdef Simple()
{
  state Main {
    /* random generation of a time quantity */
    IO.println("%t", time64.rand_uniform(0ms, 100ms)); 
    /* generation interval can span over the negative numbers when type allows */
    IO.println("%d", int16.rand_uniform(-64,64)); 
    IO.println("%f", float32.rand_pareto(10.0,0.5));
    IO.println("%f", float32.rand_exponential(1.0/50.0));
    IO.println("%f", float32.rand_gauss(0.0, 1.0));
    /* random selection over an enum */
    IO.println("%u", uint32.cast(Cardinal_Points.choice_uniform())); 
    /* random selection over a collection */
    IO.println("%d", a_stack_of_int.choice_uniform()); 
  }
}

process Simple: p1[500ms]();

init() {
  /* Initialize the random generator with the current time of the cpal_system, 
  alternatively, it is possible to initialize the generator with a fixed seed */
  seed();
  
  /* Populate the stack */
  a_stack_of_int.push(7);
  a_stack_of_int.push(0);
  a_stack_of_int.push(-4); 
}

for ms or try the desktop editor with advanced diagram views

Simulation
Tasks diagram


Quiet mode disabled
[0.000000000000:ASSIGN] Assign cpal_system new value: Scheduling_Policy.FIFO
[0.000000000000:ASSIGN][0.000000000000] Pushed a_stack_of_int new value: 7
[0.000000000000:ASSIGN][0.000000000000] Pushed a_stack_of_int new value: 0
[0.000000000000:ASSIGN][0.000000000000] Pushed a_stack_of_int new value: -4
[0.000000000000:simple-random:STARTING_TASK] 'p1'
[0.000000000000:STATE] process "Simple", instance "p1", state "Main"
[0.000000000000:PRINTLN] 56ms217us569ns128ps
[0.000000000000:PRINTLN] 24
[0.000000000000:PRINTLN] 92.782036
[0.000000000000:PRINTLN] 8.526923
[0.000000000000:PRINTLN] 0.768315
[0.000000000000:PRINTLN] 142
[0.000000000000:PRINTLN] 0
[0.000000000000:simple-random:TASK_FINISHED] 'p1'
[0.500000000000:simple-random:STARTING_TASK] 'p1'
[0.500000000000:PRINTLN] 12ms481us288ns188ps
[0.500000000000:PRINTLN] 62
[0.500000000000:PRINTLN] 49.286747
[0.500000000000:PRINTLN] 34.679920
[0.500000000000:PRINTLN] 0.190509
[0.500000000000:PRINTLN] 141
[0.500000000000:PRINTLN] 7
[0.500000000000:simple-random:TASK_FINISHED] 'p1'
[1.000000000000:simple-random:STARTING_TASK] 'p1'
[1.000000000000:PRINTLN] 14ms958us822ns403ps
[1.000000000000:PRINTLN] 41
[1.000000000000:PRINTLN] 53.438335
[1.000000000000:PRINTLN] 16.334049
[1.000000000000:PRINTLN] 0.100628
[1.000000000000:PRINTLN] 144
[1.000000000000:PRINTLN] -4
[1.000000000000:simple-random:TASK_FINISHED] 'p1'
[1.500000000000:simple-random:STARTING_TASK] 'p1'
[1.500000000000:PRINTLN] 51ms637us731ns656ps
[1.500000000000:PRINTLN] 52
[1.500000000000:PRINTLN] 17547.587891
[1.500000000000:PRINTLN] 62.852432
[1.500000000000:PRINTLN] -0.748233
[1.500000000000:PRINTLN] 141
[1.500000000000:PRINTLN] 0
[1.500000000000:simple-random:TASK_FINISHED] 'p1'
[2.000000000000:simple-random:STARTING_TASK] 'p1'
[2.000000000000:PRINTLN] 85ms976us813ns849ps
[2.000000000000:PRINTLN] 27
[2.000000000000:PRINTLN] 44.579010
[2.000000000000:PRINTLN] 41.159561
[2.000000000000:PRINTLN] -0.465532
[2.000000000000:PRINTLN] 144
[2.000000000000:PRINTLN] -4
[2.000000000000:simple-random:TASK_FINISHED] 'p1'
[2.500000000000:simple-random:STARTING_TASK] 'p1'
[2.500000000000:PRINTLN] 8ms402us579ns239ps
[2.500000000000:PRINTLN] 49
[2.500000000000:PRINTLN] 50.199154
[2.500000000000:PRINTLN] 61.727886
[2.500000000000:PRINTLN] -0.752480
[2.500000000000:PRINTLN] 141
[2.500000000000:PRINTLN] 0
[2.500000000000:simple-random:TASK_FINISHED] 'p1'
[3.000000000000:simple-random:STARTING_TASK] 'p1'
[3.000000000000:PRINTLN] 96ms454us702ns99ps
[3.000000000000:PRINTLN] -37
[3.000000000000:PRINTLN] 20.560354
[3.000000000000:PRINTLN] 209.512421
[3.000000000000:PRINTLN] -1.265508
[3.000000000000:PRINTLN] 141
[3.000000000000:PRINTLN] 7
[3.000000000000:simple-random:TASK_FINISHED] 'p1'
EXIT (SUCCESS) AT 3s (3000000000000)