SkipOverExtend.yqls 445 B

1234567891011121314151617
  1. (
  2. (let config (DataSource 'config))
  3. (let list1 (AsList (String 'a) (String 'b) (String 'c)))
  4. (let list2 (AsList (String 'd) (String 'e) (String 'f)))
  5. (let res_sink (DataSink 'result))
  6. (let world (Write! world res_sink
  7. (Key)
  8. (Skip (Extend list1 list2) (Uint64 '1)) '('('type))))
  9. (let world (Write! world res_sink
  10. (Key)
  11. (Skip (Extend list1 list2) (Uint64 '5)) '('('type))))
  12. (let world (Commit! world res_sink))
  13. (return world)
  14. )