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] 91ms497us512ns297ps
[0.000000000000:PRINTLN] 46
[0.000000000000:PRINTLN] 31.502188
[0.000000000000:PRINTLN] 24.192068
[0.000000000000:PRINTLN] -0.628309
[0.000000000000:PRINTLN] 142
[0.000000000000:PRINTLN] -4
[0.000000000000:simple-random:TASK_FINISHED] 'p1'
[0.500000000000:simple-random:STARTING_TASK] 'p1'
[0.500000000000:PRINTLN] 26ms844us688ns940ps
[0.500000000000:PRINTLN] 4
[0.500000000000:PRINTLN] 318.328735
[0.500000000000:PRINTLN] 29.617537
[0.500000000000:PRINTLN] 2.017281
[0.500000000000:PRINTLN] 142
[0.500000000000:PRINTLN] -4
[0.500000000000:simple-random:TASK_FINISHED] 'p1'
[1.000000000000:simple-random:STARTING_TASK] 'p1'
[1.000000000000:PRINTLN] 67ms661us278ns905ps
[1.000000000000:PRINTLN] -49
[1.000000000000:PRINTLN] 29.190943
[1.000000000000:PRINTLN] 12.565216
[1.000000000000:PRINTLN] 0.606371
[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] 94ms795us360ns321ps
[1.500000000000:PRINTLN] -55
[1.500000000000:PRINTLN] 47.978390
[1.500000000000:PRINTLN] 8.025072
[1.500000000000:PRINTLN] -1.855561
[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] 74ms203us730ns994ps
[2.000000000000:PRINTLN] -58
[2.000000000000:PRINTLN] 11.477811
[2.000000000000:PRINTLN] 6.787788
[2.000000000000:PRINTLN] -0.654225
[2.000000000000:PRINTLN] 142
[2.000000000000:PRINTLN] 7
[2.000000000000:simple-random:TASK_FINISHED] 'p1'
[2.500000000000:simple-random:STARTING_TASK] 'p1'
[2.500000000000:PRINTLN] 81ms47us882ns92ps
[2.500000000000:PRINTLN] -15
[2.500000000000:PRINTLN] 4989.287109
[2.500000000000:PRINTLN] 172.373550
[2.500000000000:PRINTLN] 0.768332
[2.500000000000:PRINTLN] 141
[2.500000000000:PRINTLN] 7
[2.500000000000:simple-random:TASK_FINISHED] 'p1'
[3.000000000000:simple-random:STARTING_TASK] 'p1'
[3.000000000000:PRINTLN] 56ms508us564ns935ps
[3.000000000000:PRINTLN] -30
[3.000000000000:PRINTLN] 41.760101
[3.000000000000:PRINTLN] 10.861842
[3.000000000000:PRINTLN] -0.265620
[3.000000000000:PRINTLN] 141
[3.000000000000:PRINTLN] 7
[3.000000000000:simple-random:TASK_FINISHED] 'p1'
EXIT (SUCCESS) AT 3s (3000000000000)