123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- (
- #comment
- (let mr_source (DataSource 'yt 'plato))
- (let x (Read! world mr_source (Key '('table (String 'Input))) '('key 'subkey 'value) '()))
- (let world (Left! x))
- (let table1 (Right! x))
- (let table1map (Map table1 (lambda '(item) (block '(
- (let x (Member item 'value))
- (let y (String 'q))
- (let jx (Just x))
- (let jy (Just y))
- (let n (Nothing (OptionalType (DataType 'String))))
- (let newValue x)
- (let newValue (Concat newValue (String '" => ")))
- (let newValue (Concat newValue (String '" Min ")))
- (let newValue (Concat newValue (Concat (String '" ") (Min x y))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Min jx y) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Min x jy) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Min jx jy) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Min jx n) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Min n jy) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Min n y) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Min x n) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Min n n) (String '999)))))
- (let newValue (Concat newValue (String '" Max ")))
- (let newValue (Concat newValue (Concat (String '" ") (Max x y))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Max jx y) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Max x jy) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Max jx jy) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Max jx n) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Max n jy) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Max n y) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Max x n) (String '999)))))
- (let newValue (Concat newValue (Concat (String '" ") (Coalesce (Max n n) (String '999)))))
- (let s (Struct))
- (let s (AddMember s 'key (Member item 'key)))
- (let s (AddMember s 'subkey (Member item 'subkey)))
- (let s (AddMember s 'value newValue))
- (return s)
- )))))
- (let mr_sink (DataSink 'yt (quote plato)))
- (let world (Write! world mr_sink (Key '('table (String 'Output))) table1map '('('mode 'append))))
- (let world (Commit! world mr_sink))
- (return world)
- )
|