Re: Another slow each (∨/¨)

[Hans-Peter Sorge]

    Hello Jürgen,
    
    amazing, thank you.
    
    Best Regards
    Hans-Peter

Am 01.11.20 um 19:59 schrieb Dr. Jürgen Sauermann:

Hi Hans-Peter,

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