blob: 5e16c9166ddb544f664ac10d8a83c343da49d8da (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(
#comment
(let mr_source (DataSource 'yt 'plato))
(let filter (lambda '(name) (And (>= name (String '"Input1")) (<= name (String '"Input3")))))
(let x (Read! world mr_source (Key '('table (MrTableRange '"" filter))) (Void) '()))
(let world (Left! x))
(let tables (Right! x))
(let tables (Sort tables '((Bool 'true) (Bool 'true)) (lambda '(item) '((Member item 'key) (Member item 'subkey)))))
(let mr_sink (DataSink 'yt (quote plato)))
(let world (Write! world mr_sink (Key '('table (String 'Output))) tables '()))
(let res_sink (DataSink 'result))
(let world (Write! world res_sink (Key) tables '()))
(let world (Commit! world mr_sink))
(let world (Commit! world res_sink))
(return world)
)
|
