ydb/yql/essentials/tests/s-expressions/suites/InMem/Fold1Map.yqls

(
#comment
(let config (DataSource 'config))

(let res_sink (DataSink 'result))
(let list (AsList
'((Uint32 '1) (String 'r))
'((Uint32 '1) (String 'a))
'((Uint32 '2) (String 'b))
'((Uint32 '3) (String 'b))
'((Uint32 '5) (String 'i))
'((Uint32 '8) (String 't))))

(let init (lambda '(item) (block '(
    (let key (Nth item '0))
    (let val (Nth item '1))
    (let skey key)
    (let sval val)
    (let new_item '(key val skey sval))
    (let new_state '(skey sval))
    (return '(new_item new_state)
)))))

(let update (lambda '(item state) (block '(
    (let key (Nth item '0))
    (let val (Nth item '1))
    (let skey (Nth state '0))
    (let sval (Nth state '1))
    (let skey (+ skey key))
    (let sval (Concat sval val))
    (let new_item '(key val skey sval))
    (let new_state '(skey sval))
    (return '(new_item new_state)
)))))

(let result (Fold1Map list init update))

(let world (Write! world res_sink (Key) result '('('type))))
(let world (Commit! world res_sink))
(return world)
)