DoubleSort.yqls 353 B

123456789101112
  1. (
  2. #comment
  3. (let config (DataSource 'config))
  4. (let res_sink (DataSink 'result))
  5. (let data (AsList (String 'c) (String 'e) (String 'a)))
  6. (let data (Sort data (Bool 'true) (lambda '(x) x)))
  7. (let data (Sort data (Bool 'true) (lambda '(x) x)))
  8. (let world (Write! world res_sink (Key) data '('('type))))
  9. (let world (Commit! world res_sink))
  10. (return world)
  11. )