Fold1EmptyTuple.yqls 323 B

12345678910111213
  1. (
  2. (let config (DataSource 'config))
  3. (let list (AsList (String 'a) (String 'b) (String 'c)))
  4. (let data (Fold1 list (lambda '(item) '()) (lambda '(item state) state)))
  5. (let res_sink (DataSink 'result))
  6. (let world (Write! world res_sink
  7. (Key)
  8. data '('('type))))
  9. (let world (Commit! world res_sink))
  10. (return world)
  11. )