f0←{⍺∧.=⍉⍵}
⍝f1←{(⍺⍳⍺)∘.=(⍺⍳⍵)}
f1←{(⍺ matiota ⍺)∘.=⍺ matiota ⍵}
u←(⎕a,⎕d)[?200 13⍴36]
a←u[?800⍴1↑⍴u;]
b←u[?900⍴1↑⍴u;]
(a f0 b) ≡ a f1 b
1
cmpx 'a f0 b' 'a f1 b' '⍉b'
a f0 b → 5.37E¯3 | 0% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕
a f1 b → 2.50E¯3 | -54% ⎕⎕⎕⎕⎕⎕⎕⎕⎕
* ⍉b → 2.93E¯5 | -100%
|