First time I've used Nub Sieve,
24 20$23{.1j1#'SPOILER'
S P O I L E R
S P O I L E R
S P O I L E R
S P O I L E
R S P O I
L E R S P O
I L E R S
C A N D Y
S C A N E R
S P O I L E R
S P O I L E R
S P O I L
E R S P O I
L E R S P
O I L E R S
P O I L E R
B A R B E R P
O L E I L E R
S P O I L E
R S P O I L
E R S P O
I L E R S P
O I L E R
S P O I L E R
INPUT=:1!:1<'yourpath'
PVA=:x:(3 3$_&".);._2 LF,~(-.@:e.&(Num_j_,'-',LF))`(,:&' ')}INPUT
mp=:+/ .*~~
add=: (+/@:{)`({:@:[)`]}"2
parta=:3 :0
y=. 2 1 add y
y=. 1 0 add y
)
length=: mp@:{."2 NB. *:length actually.
(i.<./)length a10000=:parta^:10000 PVA NB. parta
uncollided=: 3 :0
mask=. 1 = +/"1 = {."2 y
nub=. ~: {."2 y
mask # nub # y
)
partb=:3 :0
y=. uncollided y
y=. 2 1 add y
y=. 1 0 add y
)
#b10000=: partb^:10000 PVA
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
