Hi Jürgen,
it does precisely, what it was designed for.
It is amazing how this genius selective assignment is chewing away even
rather elaborate expressions.
Special thanks for this fix. Thoughts, trans scripted into APL, work out
of the box.-)
Best Regards,
Hans-Peter
Am 30.03.25 um 16:49 schrieb Dr. Jürgen Sauermann:
Hi Hans-Peter,
thanks, hopefully fixed in *SVN 1860*.
Not sure, though, if I have understood all issues reported.
Best Reards,
Jürgen
On 3/16/25 20:49, Hans-Peter Sorge wrote:
Hi,
for the following nested vector the Selective Assigments do not work
properly:
/
⍝ Matrix A is being repeated 3 times in B.
⍝ Matrix A has a skalar and an empty vector.
⍝ Those items have to be replaced.
/* A←2 2⍴ 'A' 'abc' (2 2⍴'qwert') ' '
B←3⍴⊂A
8 ⎕CR B*
┌→─────────────────────────────────────┐
│┌→─────────┐ ┌→─────────┐ ┌→─────────┐│
│↓A ┌→──┐│ ↓A ┌→──┐│ ↓A ┌→──┐││
││ │abc││ │ │abc││ │ │abc│││
││ └───┘│ │ └───┘│ │ └───┘││
││ │ │ │ │ ││
││┌→─┐ │ │┌→─┐ │ │┌→─┐ ││
││↓qw│ │ │↓qw│ │ │↓qw│ ││
│││er│ │ ││er│ │ ││er│ ││
││└──┘ │ │└──┘ │ │└──┘ ││
│└ϵ─────────┘ └ϵ─────────┘ └ϵ─────────┘│
└ϵϵ────────────────────────────────────┘
⍝/Identify places with scalar or '' (use depth = 0)/
*8 ⎕CR (0=,¨≡¨¨B) *
┌→────────────────────────────┐
│┌→──────┐ ┌→──────┐ ┌→──────┐│
││1 0 0 1│ │1 0 0 1│ │1 0 0 1││
│└───────┘ └───────┘ └───────┘│
└ϵ────────────────────────────┘
/⍝ Show affected elements ( 'A' and '')
⍝ There is one vector for each "A-matrix" in B /
//* 8 ⎕CR ((0=,¨≡¨¨B)/¨,¨B)*
┌→─────────────┐
│┌→─┐ ┌→─┐ ┌→─┐│
││A │ │A │ │A ││
│└──┘ └──┘ └──┘│
└ϵ─────────────┘
/⍝ Plain test, Assign the selected elements to the selection of B/
* ((0=,¨≡¨¨B)/¨,¨B)←((0=,¨≡¨¨B)/¨,¨B)**
8 ⎕CR B*
┌→─────────────────────────────────────┐
│┌→─────────┐ ┌→─────────┐ ┌→─────────┐│
│↓┌→─┐ ┌→──┐│ ↓┌→─┐ ┌→──┐│ ↓┌→─┐ ┌→──┐││
│││A │ │abc││ ││A │ │abc││ ││A │ │abc│││
││└──┘ └───┘│ │└──┘ └───┘│ │└──┘ └───┘││
││ │ │ │ │ ││
││┌→─┐ ┌→─┐ │ │┌→─┐ ┌→─┐ │ │┌→─┐ ┌→─┐ ││
││↓qw│ │A │ │ │↓qw│ │A │ │ │↓qw│ │A │ ││
│││er│ └──┘ │ ││er│ └──┘ │ ││er│ └──┘ ││
││└──┘ │ │└──┘ │ │└──┘ ││
│└ϵ─────────┘ └ϵ─────────┘ └ϵ─────────┘│
└ϵϵ────────────────────────────────────┘
/⍝ The elements of interest in B now have a depth of 2 !!!/
*8 ⎕CR **(⊂⊂,2)≡¨¨ (⍴¨¨B)*
┌→────────────────┐
│┌→──┐ ┌→──┐ ┌→──┐│
│↓1 0│ ↓1 0│ ↓1 0││
││0 1│ │0 1│ │0 1││
│└───┘ └───┘ └───┘│
└ϵ────────────────┘
/
//⍝Instead of the expected /*⍬*//
*B←3⍴⊂A*
*8 ⎕CR **(⊂⊂,⍬ )≡¨¨ (⍴¨¨B)**
*┌→────────────────┐
│┌→──┐ ┌→──┐ ┌→──┐│
│↓1 0│ ↓1 0│ ↓1 0││
││0 1│ │0 1│ │0 1││
│└───┘ └───┘ └───┘│
└ϵ────────────────┘
/⍝ The Selective Assignment actually repeats only one element /
*B←3⍴⊂A*
* ⍴((0=,¨≡¨¨B)/¨,¨B)**
*3
*((0=,¨≡¨¨B)/¨,¨B)←'XY' 'CV' 'NM'*
* 8 ⎕CR B***
┌→─────────────────────────────────────┐
│┌→─────────┐ ┌→─────────┐ ┌→─────────┐│
│↓┌→─┐ ┌→──┐│ ↓┌→─┐ ┌→──┐│ ↓┌→─┐ ┌→──┐││
│││NM│ │abc││ ││NM│ │abc││ ││NM│ │abc│││
││└──┘ └───┘│ │└──┘ └───┘│ │└──┘ └───┘││
││ │ │ │ │ ││
││┌→─┐ ┌→─┐ │ │┌→─┐ ┌→─┐ │ │┌→─┐ ┌→─┐ ││
││↓qw│ │NM│ │ │↓qw│ │NM│ │ │↓qw│ │NM│ ││
│││er│ └──┘ │ ││er│ └──┘ │ ││er│ └──┘ ││
││└──┘ │ │└──┘ │ │└──┘ ││
│└ϵ─────────┘ └ϵ─────────┘ └ϵ─────────┘│
└ϵϵ────────────────────────────────────┘
Best regards
Hans-Peter
