⊃⍋ and ⊃⍒

[Morten|Dyalog]

I fully understand your skepticism, do not believe me until you see it.

The problem you mention was an irritation but it *was* possible to work around it with error trapping, so it never became a high priority. Today, we see there is a need to reliably retrieve the full source of any function, and there is currently no way to do this in all scenarios. The intention is that the solution to this will also be designed to solve your original problem.

[Marshall|Dyalog]

Regarding the original topic, I have implemented special code in 18.0 for disclose-atop-reduce, in either 2-train or Atop operator form. My timings:

Code: Select all

      cmpx'⊃⍋a' 'a⍳⌊/a' '⊃⍤⍋a'⊣a←?1e6/0
  ⊃⍋a   → 2.7E¯1 |    0% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕
  a⍳⌊/a → 1.2E¯3 | -100%
  ⊃⍤⍋a  → 6.3E¯4 | -100%
      cmpx'⊃⍋a' 'a⍳⌊/a' '⊃⍤⍋a'⊣a←1e6?1e7
  ⊃⍋a   → 2.8E¯2 |    0% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕
  a⍳⌊/a → 3.6E¯4 |  -99% ⎕
  ⊃⍤⍋a  → 2.0E¯4 | -100%