blob: 89b7fd5a7637815178087ddb538ad12ee1d85556 (
plain) (
blame)
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
|
(
#comment
(let mr_source (DataSource 'yt 'plato))
(let x (Read! world mr_source (Key '('table (String 'Input1))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table1 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input2))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table2 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input3))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table3 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input4))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table4 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input5))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table5 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input6))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table6 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input7))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table7 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input8))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table8 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input9))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table9 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input10))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table10 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input11))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table11 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input12))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table12 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input13))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table13 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input14))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table14 (Right! x))
(let x (Read! world mr_source (Key '('table (String 'Input15))) '('key 'subkey 'value) '()))
(let world (Left! x))
(let table15 (Right! x))
(let lens (AsList
(Length table1) (Length table2) (Length table3) (Length table4) (Length table5)
(Length table6) (Length table7) (Length table8) (Length table9) (Length table10)
(Length table11) (Length table12) (Length table13) (Length table14) (Length table15)))
(let result (Fold lens (Uint64 '0) (lambda '(x y) (+ x y))))
(let res_sink (DataSink 'result))
(let world (Write! world res_sink (Key) result '()))
(let world (Commit! world res_sink))
(return world)
)
|
