[Bug-apl] Quad-PS?

2016-07-08 Thread David B. Lamkins
What's the purpose of Quad-PS (Print Style)? I've been unable to find a description.

[Bug-apl] ⎕FIO[48]

2016-07-08 Thread Juergen Sauermann
Hi, I have added a fscanf() function to ⎕FIO as proposed earlier. SVN 772. It can be accessed as ⎕FIO[48] or as FIO∆fscanf after )COPY 5 FILE_IO See the wslib5/FILE_IO.apl workspace or the src/testcases/Quad_FIO.tc testcase file

Re: [Bug-apl] multiple inner product

2016-07-08 Thread Jay Foad
On 8 July 2016 at 09:04, Kacper Gutowski wrote: > But I was looking at the evaluation sequence just below the informal > description you quoted and after some reshaping and scalar expansion > it says: > > > If A1 and B1 are both vectors, return f/A1 g B1. > > Otherwise, set Z to an array such tha

Re: [Bug-apl] multiple inner product

2016-07-08 Thread Kacper Gutowski
On 8 July 2016 at 09:24, Jay Foad wrote: > So if A and B are vectors, Z is a scalar whose single item is f/AgB. Hence Z > itself is ⊂f/AgB. I think you are right that it should be ⊂f/AgB. I stand corrected. But I was looking at the evaluation sequence just below the informal description you quo

[Bug-apl] dfn-reduction bug

2016-07-08 Thread Jay Foad
Juergen, Just in case you missed this, buried in another thread: X←⊂¨,¨⍳2 ⋄ (+/X) ≡ ({⍺+⍵}/X) 0 FYI I get the following results on various APLs: X←⊂¨,¨⍳2 ⋄ (≡+/X)(≡{⍺+⍵}/X) ⍝ GNU APL 2 3 X←⊂¨,¨⍳2 ⋄ (≡+/X)(≡{⍺+⍵}/X) ⍝ Dyalog APL 3 3 X←⊂¨,¨⍳2 ⋄ (≡+/X)(≡{⍺+⍵}/X) ⍝ NARS 2000

Re: [Bug-apl] multiple inner product

2016-07-08 Thread Jay Foad
On 7 July 2016 at 12:57, Kacper Gutowski wrote: > On 7 July 2016 at 12:55, Jay Foad wrote: > > (⊂+/3 4 ⍴ 5 6)≡3 4 +.⍴ 5 6 > > 1 > > Ah, I see what you mean. But it still wasn't my error, it's really what > ISO says. It's not equivalent to APL2 definition, nor to Dyalog's one, > and it see