regulus 0.0.14

A simple, interpreted language with very simple syntax and zero dependencies
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

import(math),
import(lists),

global(__stl_rng_state, __builtin_now_nanos_part()),

# returns a random integer
def(rand, _(
    # source: https://en.wikipedia.org/wiki/Xorshift#Example_implementation
    =(x, __stl_rng_state),
    =(x, ^(x, <<(x, 13))),
    =(x, ^(x, >>(x, 7))),
    =(x, ^(x, <<(x, 17))),
    =(__stl_rng_state, x),
    x
)),

# returns a random integer in low..high
# raises if low >= high
def(randrange, low, high, _(
    =(diff, -(high, low)),
    if(<=(diff, 0), error("Range", "called randrange with an empty range")),
    +(low, abs(%(rand(), diff)))
)),

# returns a random element of the given sequence
def(choose, seq, _(
    =(idx, randrange(0, len(seq))),
    index(seq, idx)
)),

# Seeds the RNG with the given value.
# It is not required to seed the RNG before using it, as it automatically uses the current time in nanoseconds as a start.
def(seed, val, _(
    =(__stl_rng_state, val)
)),

# returns a shuffled version of the given sequence
def(shuffle, seq, _(
    for_in(..(0, len(seq)), i, _(
        =(seq, swap(seq, i, randrange(i, len(seq)))),
    )),
    seq
))