1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
/ use q 2016.03.14
d:"zpqevtbw"
k:,/$-15!d,$:
r:()
{64>#r}{ t::{~|/(1=#?:)'{1_x,y}\[3#0;k x]}(1+)/x
p:: 5#k[t]@*&(1=#?:)'{1_x,y}\[3#0;k t]
$[#&{#ss[x;p]}'k't+1+!1000; r,:t;]
t+1 }/0;
*|r / 16106
r:()
h:(,-1)!,""
s:{$[x in !h;h[x];:h[x]:2016(,/$-15!)/(,/$-15!d,$:x)]}
{64>#r}{ t::{~|/(1=#?:)'{1_x,y}\[3#0;s x]}(1+)/x
-1@($t)," ",($#r)
p:: 5#s[t]@*&(1=#?:)'{1_x,y}\[3#0;s t]
$[#&{#ss[x;p]}'s't+1+!1000; r,:t;]
t+1 }/0;
*|r / 22423
|