Re: [Bug-apl] Unique of nested arrays doesn't work

[Juergen Sauermann]

Hi Kacper,

thanks, should be fixed in SVN 125.

/// Jürgen


On 02/14/2014 06:16 PM, Kacper Gutowski wrote:
> On 2014-02-14 16:15:33, Juergen Sauermann wrote:
> > fixed in SVN 120.
> In r122, it doesn't give domain error anymore, but I think that
> results are not correct:
>
>        ⎕RL
> 1
>        8⎕CR Y←⊂[1]?2 10⍴2
> ┌→──────────────────────────────────────────────────────────┐
> │┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐│
> ││2 2│ │2 2│ │2 1│ │1 1│ │2 2│ │1 2│ │1 1│ │2 2│ │1 2│ │1 2││
> │└───┘ └───┘ └───┘ └───┘ └───┘ └───┘ └───┘ └───┘ └───┘ └───┘│
> └∊──────────────────────────────────────────────────────────┘
>        8⎕CR Z←∪Y
> ┌→────────────────────────────────────────┐
> │┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐│
> ││2 2│ │2 1│ │1 1│ │2 2│ │1 2│ │1 1│ │1 2││
> │└───┘ └───┘ └───┘ └───┘ └───┘ └───┘ └───┘│
> └∊────────────────────────────────────────┘
>        8⎕CR ((Y⍳Y)=⍳⍴Y)/Y←,Y   ⍝ ←→ ∪Y
> ┌→──────────────────────┐
> │┌→──┐ ┌→──┐ ┌→──┐ ┌→──┐│
> ││2 2│ │2 1│ │1 1│ │1 2││
> │└───┘ └───┘ └───┘ └───┘│
> └∊──────────────────────┘
>        Z[1] ≡ Z[4]
> 1
>
>
> -k