| Exercise: Nub (Unique) | Index << >> |
Morten, vecdb application, 2016-09-28:
t ← '/zero/one/two/three/four/five/six/seven/eight/nine/ten'
t ,← '/eleven/one dozen/thirteen/fourteen/fifteen'
t ← {1↓¨(⍵=⊃⍵)⊂⍵} t
t
┌────┬───┬───┬─────┬────┬────┬───┬─────┬ ┬───────┐
│zero│one│two│three│four│five│six│seven│...│fifteen│
└────┴───┴───┴─────┴────┴────┴───┴─────┴ ┴───────┘
x ← t[ ? 5e6 ⍴ ≢t ]
Derive a faster computation
for ∪x .
Hint: ↑x
has been sped up in v15.0.
|