FoldConstMin.yqls 335 B

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