ahead.yql 555 B

1234567891011121314
  1. (
  2. (let $1 (DataSink 'result))
  3. (let $2 (Right! (Read! world (DataSource '"yt" '"plato") (MrTableConcat (Key '('table (String '"Input")))) (Void) '())))
  4. (let inputFlow (ToFlow (PersistableRepr (OrderedSqlProject $2 '((SqlProjectStarItem (TypeOf $2) '"" (lambda '($4) $4) '()))))))
  5. (let timeOrderRecover (TimeOrderRecover
  6. inputFlow
  7. (lambda '($3) (Member $3 '"ts"))
  8. (Interval '-10)
  9. (Interval '5)
  10. (Uint32 '12)
  11. ))
  12. (let $3 (Write! world $1 (Key)(ForwardList timeOrderRecover)'('('type) '('autoref))))
  13. (return (CommitAll! (Commit! $3 $1)))
  14. )