a guest Jul 17th, 2018 116 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. upd: {[t;x]
  2.     .lb.t:t;
  3.     .lb.x:x;
  4.     if [not count x;:()]
  5.     a:.z.p;
  6.     if[not -16=type first first x; a:"n"$a];
  7.       f:cols getfromdot[t];
  8.       g:flip f!flip x;
  9.       pub[t;$[0>type first x; enlist f!flip x;flip f!flip x]];
  10.       if[l; l enlist (`upd;t;g);i+:1];
  11.     }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand