Thanks Raul,
write it in one line, and remove both my verb find and unique:
society =. (1 ,. 5 7); (2 ,. _.);(3 ,. _.); (4 ,. 1 2); (5 ,. 2 7);(6 ,. 2);(7
,. 8) ;(8 ,. 5)
]symSoc =. society , L:0 (<"0 q) ,.L:0 ({.p) #~ L:0 (({:p)&e. each (q =. ~.{.p
=. |:;society))
The key verbs above are e. each, and # only for finding matches. All others
are just formatting.
On Wednesday, October 9, 2013 5:05 PM, Raul Miller <[email protected]>
wrote:
The J dictionary uses 'nub' to describe an operation which behaves
like your 'unique', here.
http://www.jsoftware.com/help/dictionary/d221.htm
I hope this helps. (And I must admit I didn't notice anything else
that I'd change.)
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm