Resource.yqls 364 B

12345678910111213141516
  1. (
  2. #comment
  3. (let config (DataSource 'config))
  4. (let res_sink (DataSink 'result))
  5. (let gen (NewMTRand (Uint64 '42)))
  6. (let p (NextMTRand gen))
  7. (let gen (Nth p '1))
  8. (let v1 (Nth p '0))
  9. (let p (NextMTRand gen))
  10. (let gen (Nth p '1))
  11. (let v2 (Nth p '0))
  12. (let world (Write! world res_sink (Key) '(v1 v2) '('('type))))
  13. (let world (Commit! world res_sink))
  14. (return world)
  15. )