Advertisement
Sean_K

Oplop in q

Feb 25th, 2012
1,179
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. o:{
  2.     d:.Q.A,.Q.a,(n:"0123456789"),"-_";
  3.     b:d 2 sv'6 cut(,/)0b vs'(md5 x,y),2#0x00;
  4.     i:b in n;j:i?1b;
  5.     if[0=0+/i;:"1",7#b];
  6.     if[8>j;:8#b];
  7.     k:(j _i)?0b;8#(b j+til k),b}
Advertisement
RAW Paste Data Copied
Advertisement