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] 78ms537us728ns630ps
[0.000000000000:PRINTLN] 9
[0.000000000000:PRINTLN] 12.604952
[0.000000000000:PRINTLN] 19.510967
[0.000000000000:PRINTLN] 1.094850
[0.000000000000:PRINTLN] 144
[0.000000000000:PRINTLN] 0
[0.000000000000:simple-random:TASK_FINISHED] 'p1'
[0.500000000000:simple-random:STARTING_TASK] 'p1'
[0.500000000000:PRINTLN] 36ms870us654ns687ps
[0.500000000000:PRINTLN] 11
[0.500000000000:PRINTLN] 382.618500
[0.500000000000:PRINTLN] 41.265926
[0.500000000000:PRINTLN] 1.278679
[0.500000000000:PRINTLN] 143
[0.500000000000:PRINTLN] 7
[0.500000000000:simple-random:TASK_FINISHED] 'p1'
[1.000000000000:simple-random:STARTING_TASK] 'p1'
[1.000000000000:PRINTLN] 78ms828us616ns146ps
[1.000000000000:PRINTLN] -14
[1.000000000000:PRINTLN] 399.359222
[1.000000000000:PRINTLN] 108.678818
[1.000000000000:PRINTLN] -0.185234
[1.000000000000:PRINTLN] 143
[1.000000000000:PRINTLN] 7
[1.000000000000:simple-random:TASK_FINISHED] 'p1'
[1.500000000000:simple-random:STARTING_TASK] 'p1'
[1.500000000000:PRINTLN] 27ms136us614ns503ps
[1.500000000000:PRINTLN] -10
[1.500000000000:PRINTLN] 107.189789
[1.500000000000:PRINTLN] 28.884136
[1.500000000000:PRINTLN] 0.068327
[1.500000000000:PRINTLN] 144
[1.500000000000:PRINTLN] -4
[1.500000000000:simple-random:TASK_FINISHED] 'p1'
[2.000000000000:simple-random:STARTING_TASK] 'p1'
[2.000000000000:PRINTLN] 62ms956us117ns628ps
[2.000000000000:PRINTLN] -61
[2.000000000000:PRINTLN] 322.381683
[2.000000000000:PRINTLN] 44.101509
[2.000000000000:PRINTLN] -0.103328
[2.000000000000:PRINTLN] 143
[2.000000000000:PRINTLN] 7
[2.000000000000:simple-random:TASK_FINISHED] 'p1'
[2.500000000000:simple-random:STARTING_TASK] 'p1'
[2.500000000000:PRINTLN] 99ms79us44ns639ps
[2.500000000000:PRINTLN] -7
[2.500000000000:PRINTLN] 85.617783
[2.500000000000:PRINTLN] 19.410929
[2.500000000000:PRINTLN] -0.641658
[2.500000000000:PRINTLN] 144
[2.500000000000:PRINTLN] 7
[2.500000000000:simple-random:TASK_FINISHED] 'p1'
[3.000000000000:simple-random:STARTING_TASK] 'p1'
[3.000000000000:PRINTLN] 68ms356us576ns257ps
[3.000000000000:PRINTLN] 34
[3.000000000000:PRINTLN] 739622.750000
[3.000000000000:PRINTLN] 37.840881
[3.000000000000:PRINTLN] 2.036327
[3.000000000000:PRINTLN] 141
[3.000000000000:PRINTLN] 0
[3.000000000000:simple-random:TASK_FINISHED] 'p1'
EXIT (SUCCESS) AT 3s (3000000000000)