blob: 5d213f0f5ac0ae3d4283c39929e9fe07cd0c8da9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(
#comment
(let config (DataSource 'config))
(let world (Configure! world config 'PureDataSource 'yt))
(let res_sink (DataSink 'result))
(let list1 (AsList (String 'a) (String 'b) (String 'c)))
(let map (Map list1 (lambda '(x) (Uint32 '2))))
(let data (Condense1 map (lambda '(item) item) (lambda '(item state) (Bool 'false)) (lambda '(item state) (* item state))))
(let world (Write! world res_sink (Key) data '('('type))))
(let world (Commit! world res_sink))
(return world)
)
|
