⍝ ZZ57_Regression.tc
⍝ ------------------

      ⍝ bug-apl@gnu.org, 3/4/2023 (Mr. Sunday) ...

      )CLEAR
CLEAR WS

      VAR←(5 4) (3 4⍴⍳12) (⊃'Sue' 'Maria' 'Annalisa') ◊ 8 ⎕CR VAR
┌→────────────────────────────┐
│┌→──┐ ┌→─────────┐ ┌→───────┐│
││5 4│ ↓1  2  3  4│ ↓Sue     ││
│└───┘ │5  6  7  8│ │Maria   ││
│      │9 10 11 12│ │Annalisa││
│      └──────────┘ └────────┘│
└ϵ────────────────────────────┘

      (3⊃VAR)← ⊃ 'Susan' 'Mary' 'Annalisa' ◊ 8 ⎕CR VAR
┌→────────────────────────────┐
│┌→──┐ ┌→─────────┐ ┌→───────┐│
││5 4│ ↓1  2  3  4│ ↓Susan   ││
│└───┘ │5  6  7  8│ │Mary    ││
│      │9 10 11 12│ │Annalisa││
│      └──────────┘ └────────┘│
└ϵ────────────────────────────┘

      ⍝ bug-apl@gnu.org, 3/8/2023 (Hans-Peter Sorge) ...

      ⍝ lrm example, p. 85 (Compress can be used with selective specification

      8 ⎕CR M←3 2ρι6
┌→──┐
↓1 2│
│3 4│
│5 6│
└───┘
      (1 0/M)←'ABC' ◊ 8 ⎕CR M
┌→──┐
↓A 2│
│B 4│
│C 6│
└───┘

      8 ⎕CR V←1 'bc' (3 2ρι6)
┌→───────────┐
│1 ┌→─┐ ┌→──┐│
│  │bc│ ↓1 2││
│  └──┘ │3 4││
│       │5 6││
│       └───┘│
└ϵ───────────┘

      (1 0/3⊃V)←'ABC' ◊ 8 ⎕CR V
┌→───────────┐
│1 ┌→─┐ ┌→──┐│
│  │bc│ ↓A 2││
│  └──┘ │B 4││
│       │C 6││
│       └───┘│
└ϵ───────────┘


      (1/3⊃V)←3 2⍴'ABCdef' ◊ 8 ⎕CR V
┌→──────────┐
│1 ┌→─┐ ┌→─┐│
│  │bc│ ↓AB││
│  └──┘ │Cd││
│       │ef││
│       └──┘│
└ϵ──────────┘