Case Study Index   <<   >>
 

hix←{
  X←⍵
  Z←(≢⍵)⍴¯1
  c←{⊂⍵}⌸ ⍺⍺ ⍵
  Z ⊣ {0 ⊣ Z[⍵]←⍵[xix X⌷⍨⊂⍵]}¨ c
}

   hf←{3⊥⎕av⍳⍵}

   x← ⍕¨ ?1e3⍴1e5
   cmpx 'xix x' 'hf¨ hix x'
  xix x     → 3.36E¯4 |    0% ⎕⎕⎕
  hf¨ hix x → 3.59E¯3 | +968% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕

   ⎕←t←{x∘←⍕¨?⍵⍴1e5 ⋄ 1 1 cmpx 'hf¨ hix x'}¨ 1e3×1 2 4 8 16
0.00353516 0.00584766 0.009875 0.0158438 0.0260781

   2 ÷⍨/ t
1.65414 1.68871 1.60443 1.64596