Special Codes in Operators | Index << >> |
x←?1e6⍴100 {⍺,≢⍵}⌸x 44 10132 8 9873 39 9948 53 9826 79 10068 cmpx '{⍺,≢⍵}⌸x' '{⍺,(≢⍵)}⌸x' {⍺,≢⍵}⌸x → 7.50E¯4 | 0% ⎕ {⍺,(≢⍵)}⌸x → 1.55E¯2 | +1960% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ f←{(b/s),⍤0-2-/(1+⍴b),⍨b/⍳⍴b←s≠¯1↓¯1,s←{⍵[⍋⍵]}⍵} g←{c←(1+⌈/⍵)⍴0 ⋄ c[⍵]+←1 ⋄ (b/⍳⍴b),⍤0⊢(b←0≠c)/c} cmpx '{⍺,≢⍵}⌸x' 'f x' 'g x' {⍺,≢⍵}⌸x → 7.42E¯4 | 0% ⎕⎕⎕⎕⎕ * f x → 2.57E¯3 | +246% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ * g x → 3.31E¯3 | +345% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ |