thanks, fixed in SVN 1351.
Best Regards,
Jürgen
On 10/31/20 4:52 PM, Hans-Peter Sorge
wrote:
Hi,
the ∨/¨ on nested logical vectors is running slow.
)WSID
IS CLEAR WS
⍝ get the data for testing
⍴f ← ⎕FIO[49] '/OTH/APL/trunk/src/Makefile.in'
5246
⍝ timer
t←⎕FIO[50] 1
⍝ Finding SQL-records is fast. The ∨/¨ is the slow guy - about 2 min.
⍝ I would expect that " (⊂'SQL') ⍷¨ f " takes more cycles to run than " ∨/¨ "
R←(∨/¨(⊂'SQL') ⍷¨ f)/f
⍝ timer
(⎕FIO[50] 1) -t
127
⍝ alternatively:
⍴m←⊃f
5246 487
t←⎕FIO[50] 1
R←(∨/'SQL' ⍷ m)/f
(⎕FIO[50] 1) -t
1
(Fedora 32, Mem 16GB, i7-2860QM CPU @ 2.50GHz )
Best Regards
Hans-Peter
