123456789101112131415161718192021 |
- (
- #comment
- (let mr_source (DataSource 'yt 'plato))
- (let x (Read! world mr_source (Key '('table (String 'Input))) '('key 'subkey 'value) '()))
- (let world (Left! x))
- (let table1 (Right! x))
- (let table1map (Map table1 (lambda '(item) (block '(
- (let key (Member item 'key))
- (let res (TryMember item 'key (String 'aaa)))
- (let res (Concat res (TryMember item 'newValue (String 'bbb))))
- (let s (Struct))
- (let s (AddMember s 'key res))
- (let s (AddMember s 'subkey (Member item 'subkey)))
- (let s (AddMember s 'value (Member item 'value)))
- (return s)
- )))))
- (let mr_sink (DataSink 'result))
- (let world (Write! world mr_sink (Key) table1map '()))
- (let world (Commit! world mr_sink))
- (return world)
- )
|