Re: Reassignment of a nested array element

[Hans-Peter Sorge]

    Hi,
    
    Yes, spontaneously it looked like selective assignment
    
    Like 
    
          CM← ⊃'Sue'
        'Maria' 'Annalisa'
      
            CM
      
      Sue      
      Maria    
      Annalisa
      
      
             (1/CM)← ⊂'xxxxx'
      
            CM
      
      xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx  
      xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx  
      xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx 
      
         CM← ⊃'Sue'
        'Maria' 'Annalisa'
      
      
             ((,CM=' ')/,CM)←⊂'SPACE'
      
            CM
      
      Sue SPACE SPACE SPACE SPACE SPACE  
      Mar i     a     SPACE SPACE SPACE  
      Ann a     l     i     s     a    
    
          CM← ⊃'Sue'
        'Maria' 'Annalisa'
      
      
             ((,CM=' ')/,CM)←  (⊂'SPACE'),¨ ⍳+/,CM=' '    
            CM
      
      Sue  SPACE 1  SPACE 2  SPACE 3  SPACE 4  SPACE 5  
      Mar  i        a        SPACE 6  SPACE 7  SPACE 8  
      Ann  a        l        i        s        a       
    
    What ever selected elements are  on the left side, those "positions"
    get assigned the right element(s) assigned. 
    
    Glad it works this way.
    
    As about Dyalog, I'm puzzled. The Project I'm working on runs under
    Dyalog and I make heavy use of this pattern. 
      
    I have to try tomorrow.
    
    PS. by Element I mean   
    
    0 ←→ ⍴⍴
        Element   ... where Element is of any depth the system allows
    
    Greetings
    Hans-Peter

Am 05.03.23 um 18:04 schrieb Mr. Sunday:

> Thank you for your reply, Hans-Peter.  Sorry for the delay; it took some time to dig out my old interpreters.  APL2, APL+Win, and Dyalog come up with the answer I expect.  I do not see why reassignment would retain the structure of the prior contents.  Is your point of view based upon selective assignment?  Inserting a comma in the left hand side gives the result you expect: (,3⊃var)←⊂⊃'Susan' 'Mary' 'Annalisa'.
>
> IBM APL2 2.0 Service Level 14
>  var←0 0 0 ⋄ (1⊃var)←5 4 ⋄ (2⊃var)←3 4⍴⍳12 ⋄ (3⊃var)←⊃'Sue' 'Maria' 'Annalisa' ⋄ var ⋄ (3⊃var)←⊂⊃'Susan' 'Mary' 'Annalisa' ⋄ var
>  5 4   1  2  3  4   Sue      
>        5  6  7  8   Maria    
>        9 10 11 12   Annalisa 
>  5 4   1  2  3  4    Susan     
>        5  6  7  8    Mary      
>        9 10 11 12    Annalisa  
>
> Dyalog 18.2.45505
>   ⎕ml←3 ⋄ ⎕io←1 ⋄ var←0 0 0 ⋄ (1⊃var)←5 4 ⋄ (2⊃var)←3 4⍴⍳12 ⋄ (3⊃var)←⊃'Sue' 'Maria' 'Annalisa' ⋄ var ⋄ (3⊃var)←⊂⊃'Susan' 'Mary' 'Annalisa' ⋄ var
>  5 4  1  2  3  4  Sue      
>       5  6  7  8  Maria    
>       9 10 11 12  Annalisa 
>  5 4  1  2  3  4   Susan     
>       5  6  7  8   Mary      
>       9 10 11 12   Annalisa  
>  
> APL+Win 4.0               
>  var←0 0 0 ⋄ (1⊃var)←5 4 ⋄ (2⊃var)←3 4⍴⍳12 ⋄ (3⊃var)←⊃'Sue' 'Maria' 'Annalisa' ⋄ var ⋄ (3⊃var)←⊂⊃'Susan' 'Mary' 'Annalisa' ⋄ var
>  5 4    1  2  3  4   Sue
>         5  6  7  8   Maria
>         9 10 11 12   Annalisa
>  5 4    1  2  3  4    Susan
>         5  6  7  8    Mary
>         9 10 11 12    Annalisa
>
>
> On Sat, Mar 4, 2023, at 14:25, Hans-Peter Sorge wrote:
> > Hi,
> >
> > Works as expected
> >
> > ⊃'Sue' 'Maria' 'Annalisa'
> > is an array 3 by 8.
> >
> > ⊂⊃'Susan' 'Mary' 'Annalisa'
> > is an element (⊂) of a 3 by 8  array (⊃'Susan' 'Mary' 'Annalisa' ).
> >
> > Finally each element in  ⊃'Sue' 'Maria' 'Annalisa' gets assigned an 
> > array of  ⊃'Susan' 'Mary' 'Annalisa'
> >
> > Greetings
> > Hans-Peter
> >
> > Am 04.03.23 um 16:53 schrieb Mr. Sunday:
> > > Hi,
> > >
> > > I have an issue with reassigning an element of a nested array.  Here is an example.
> > >
> > > 14535:15a:~% apl --version
> > > BUILDTAG:
> > > ---------
> > >      Project:        GNU APL
> > >      Version / SVN:  1.8 / SVN: 1651M
> > >      Build Date:     2023-03-02 00:25:07 UTC
> > >      Build OS:       Darwin 21.6.0 x86_64
> > >      config.status:  default ./configure options
> > >      Archive SVN:    1621
> > >
> > >
> > >      var←0 0 0 ⋄ (1⊃var)←5 4 ⋄ (2⊃var)←3 4⍴⍳12 ⋄ (3⊃var)←⊃'Sue' 'Maria' 'Annalisa' ⋄ var ⋄ (3⊃var)←⊂⊃'Susan' 'Mary' 'Annalisa' ⋄ var
> > > ┌→────────────────────────────┐
> > > │┌→──┐ ┌→─────────┐ ┌→───────┐│
> > > ││5 4│ ↓1  2  3  4│ ↓Sue     ││
> > > │└───┘ │5  6  7  8│ │Maria   ││
> > > │      │9 10 11 12│ │Annalisa││
> > > │      └──────────┘ └────────┘│
> > > └ϵ────────────────────────────┘
> > > ┌→───────────────────────────────────────────────────────────────────────────────────────────────────────────┐
> > > │┌→──┐ ┌→─────────┐ ┌→──────────────────────────────────────────────────────────────────────────────────────┐│
> > > ││5 4│ ↓1  2  3  4│ ↓┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐││
> > > │└───┘ │5  6  7  8│ │↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │││
> > > │      │9 10 11 12│ ││Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │││
> > > │      └──────────┘ ││Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│││
> > > │                   │└────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘││
> > > │                   │                                                                                       ││
> > > │                   │┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐││
> > > │                   │↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │││
> > > │                   ││Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │││
> > > │                   ││Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│││
> > > │                   │└────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘││
> > > │                   │                                                                                       ││
> > > │                   │┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐ ┌→───────┐││
> > > │                   │↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │ ↓Susan   │││
> > > │                   ││Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │ │Mary    │││
> > > │                   ││Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│ │Annalisa│││
> > > │                   │└────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘ └────────┘││
> > > │                   └ϵ──────────────────────────────────────────────────────────────────────────────────────┘│
> > > └ϵϵ──────────────────────────────────────────────────────────────────────────────────────────────────────────┘
> > >
> > > -- Everyday is Sunday.
> > >
> > >         
> >       
>