flowr 1.0.0

Runners for compiled 'flow' programs
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82

flow = "running-average"
docs = "DESCRIPTION.md"

# Running RMS (Root Mean Square) average, inspired by the Lucid dataflow
# programming language example (Wadge & Ashcroft, 1985, page 47).
#
# RMS = sqrt(sum(x²) / n)

# Read numbers from stdin, one per line
[[process]]
source = "context://stdio/readline"
input.prompt = { always = "" }

# Square the input: x² = x * x
[[process]]
alias = "square"
source = "lib://flowstdlib/math/multiply"

[[connection]]
from = "readline/json"
to = "square/i1"

[[connection]]
from = "readline/json"
to = "square/i2"

# Accumulate sum of squares: s = 0 fby s + x²
[[process]]
alias = "sum"
source = "lib://flowstdlib/math/add"
input.i1 = { once = 0 }

[[connection]]
from = "square"
to = "sum/i2"

# Loopback: new sum feeds back
[[connection]]
from = "sum"
to = "sum/i1"

# Count inputs: n = 0 fby n + 1
[[process]]
source = "lib://flowstdlib/data/count"
input.count = { once = 0 }

[[connection]]
from = "readline/json"
to = "count/data"

# Loopback: count feeds back
[[connection]]
from = "count"
to = "count/count"

# Mean of squares: sum(x²) / n
[[process]]
source = "lib://flowstdlib/math/divide"

[[connection]]
from = "sum"
to = "divide/dividend"

[[connection]]
from = "count"
to = "divide/divisor"

# Root of mean squares: sqrt(sum(x²) / n)
[[process]]
source = "lib://flowstdlib/math/sqrt"

[[connection]]
from = "divide/result"
to = "sqrt"

# Output the RMS value
[[process]]
source = "context://stdio/stdout"

[[connection]]
from = "sqrt"
to = "stdout"